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;
}