pack sie dir in einen hash (%laender, key = land, value = anzahl) und dann lass dir den sortieren
foreach my $land (sort {$laender{$a} <=> $laender{$b}} keys %laender)
{
print $laender{$land}"\n"; # sortiert nach anahl
}