try this:
%st = (
'Berlin','999999',
'Hamburg','888898',
'Karlsruhe','333000',
'Weimar','56000',
);
foreach my $st(sort{ ew($a) <=> ew($b) } keys %st){
print "Ort: $st, Einwohner: $st{$st}\n";
}
sub ew{ return $st{$_[0]} }
Mehr zum Sortieren findest du auch auf der PerlBase