my %Staedtenamen=();

#....

while(my $Stadt=shift(@neue_Staedte))
{
 my $Stadtname=$$Stadt[0];
 my $PLZ=$$Stadt[1];
 my $Einwohner=$$Stadt[2];
 $Staedtenamen{$Stadtname}={PLZ=>$PLZ, Einwohnerzahl=>$Einwohner};
}

#....

my $PLZ_Berlin=$Staedtenamen{Berlin}{PLZ};