Select Code to Download

my %h = ( a => 5, b => 6, c => 7 );

each %h;
say for keys( %h );

b
c
a

my %h = ( a => 5, b => 6, c => 7 );

...
while ( my $k = each( %h ) ) {
   say $k;
}

c
a
...
b
c
a