# Very clear to a clear thinker

my %hash = ( a => 1, b => 2, c => 3 );

while ( my ( $key, $value ) = each %hash ){
    say "key: $key, value: $value";
}

##</code><code>##

# More captivating to your average thinker

my %rebels = ( Luke => 'Jedi', Han => 'human', Chewbacca => 'Wookie' );

while ( my ( $name, $species ) = each %rebel ){
    say "Name: $name, Species: $species";
}