my %foo = (
           animal => 'monkey',
           fish   => 'tuna',
           insect => 'ant',
           insect => 'spider'
           );

while (my ($key, $value) = each %foo) {
    print "KEY: $key\n  VALUE: $value\n";
}