#!/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";