%Mittelamerkika = {
        Argentinien  => {
            land => "Argentinien", 
            orte => [ 
               
    {Bezeichnung => "Buenos Aires", Anmerkung => "Hauptstadt", Einwohnerzahl => 1200000, },
               
    {Bezeichnung => "Cordoba", Anmerkung => "älteste Universität", Einwohnerzahl => 1400000, },
               
    {Bezeichnung => "Rosario", Anmerkung  => "wichter Hafen des Landes", Einwohnerzahl =>1200000, },
               
    {Bezeichnung => "Medoza ", Anmerkung => "Wein- und Obstbau", Einwohnerzahl => 900000, }, 
               
    ],
                  },
        Brasilien => {
                  land => "Brasilien",
              orte => [
               
    {Bezeichnung => "Brasilia", Anmerkung => "Hauptstadt", Einwohnerzahl => 200000, },
               
    {Bezeichnung => "Rio de Janeiro", Anmerkung => "zweitgröße Stadt", Einwohnerzahl => 11719708 , },
               
    {Bezeichnung => "Sao Paulo", Anmerkung => "Wirschafts- Finanz und Kulturzentrum", Einwohnerzahl => 11017000, },
               
    ]
                     },
        Chile  => {
                 land => "Chile ",
             orte => [

               
    {Bezeichnung => "Santiago de Chile", Anmerkung => "Hauptstadt", Einwohnerzahl => 4656690 , },
               
    {Bezeichnung => "Valparaiso", Anmerkung  => "Hafenstadt", Einwohnerzahl => 905300 , },
               
    {Bezeichnung => "Bonaire", Anmerkung => "keinde Idee", Einwohnerzahl => 15000 , },
               
    ]
                   }


           };
my $MP = 0; 
foreach $MP (sort keys %Mittelamerika){
    print "$MP : $Mittelamerika {$MP} info\n";
}

for my $MP (sort keys %Mittelamerika){
   print "Land: $MP\n";
   print "Infos:\n";
   print "$Mittelamerika{$MP}{'land'} Capital:", $Mittelamerika{$MP}{'orte'}[0]{'Bezeichnung'} ,"\n";
   print "$Mittelamerika{$MP}{'land'} Additional info:", $Mittelamerika{$MP}{'orte'}[0]{'Anmerkung'} ,"\n";
}