Help for this page
my %h = map { $_ => 1 } qw( a b c d ); ... while (my $k = each(%h)) { print("$k\n"); # a b d }
my %h = map { $_ => 1 } qw( a b c d ); ... while (my $k = each(%h)) { print("$k\n"); # c a b d }