Select Code to Download

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
}