#!/usr/bin/perl
use strict;
use warnings;

my %lokal = (
    Personen        => {
        'Albert'        => {
            kuerzel     => 'A',
        },
        'Heinz' => {
            kuerzel     => 'H',
        },
    },
);

my ($typ_lang) = (map {$_} grep {$lokal{Personen}{$_}{kuerzel} eq 'H'} keys %{$lokal{Personen}});
print "Name: $typ_lang\n";
print "Name= ".(map {$_} grep {$lokal{Personen}{$_}{kuerzel} eq 'H'} keys %{$lokal{Personen}})."\n";