Help for this page
my %foo = ( animal => 'monkey', fish => 'tuna', ... while (my ($key, $value) = each %foo) { print "KEY: $key\n VALUE: $value\n"; }
KEY: insect VALUE: spider KEY: animal VALUE: monkey KEY: fish VALUE: tuna