Help for this page
my @keys = grep { $hash{$_} eq $some_value } keys %hash;
my %verzeichnis = ( peter => 12345, ... my %rueckwaertssuche = reverse %verzeichnis; print $rueckwaertssuche{'12345'}, "\n"; # lost mary