my %verzeichnis = (
    peter => 12345,
    paul  => 34567,
    mary  => 12345
);

my @names = grep { $verzeichnis{$_} eq '12345' } keys %verzeichnis;
print "@names\n";

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