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

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

##</code><code>##

b
c
a

##</code><code>##

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

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

say "--";

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

##</code><code>##

c
a
--
b
c
a