Select Code to Download

my @keys = grep { $hash{$_} eq $some_value } keys %hash;

my %verzeichnis = (
    peter => 12345,
...

my %rueckwaertssuche = reverse %verzeichnis;
print $rueckwaertssuche{'12345'}, "\n"; # lost mary