is_deeply [ sort { $a <=> $b } @b ], [ 1, 1, 2, 3 ], 'hash: values correctly';
check { while (my ($k, $v) = each %h) { } } { }, 'each';
is_deeply [ sort { $a <=> $b } @b ], [ 1, 1, 2, 3 ], 'hash: values correctly';
check { while (my ($k, $v) = each %h) { } } { }, 'each';