Select Code to Download

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