Or it may be easier to understand as this:

foreach my $sortedkey (sort {$hashname{"$a"} <=> $hashname{"$b"} } key
+s %hashname) {
printf "Value: %d Key: %s", %hashname{"$sortedkey"}, $sortedkey;
}
[download]

-Waswas