print "Name= ".(grep {$lokal{Personen}{$_}{kuerzel} eq 'H'} keys %{$lokal{Personen}})[0]."\n";