Or to sort on the keys numerically:

for my $x(sort {return $a <=> $b} keys %hash)
{
    print "$x = $hash{$x}\n";
}
[download]