i absolutely agree with you, but propose to sort the hash keys prior to mapping the result:

print join(', ', map { $_ . _ => ' . $hash{$_} } sort { $a cmp $b } ke
+ys(%hash), "\n";
[download]

@ anonymus monk:
the sort block is what sort() performs automatically, so it's just a placeholder for any other sorting routine.
perldoc -f sort will give you some examples and advices.