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";
}