sub numerically { $a <=> $b }
say for sort_hash(\&numerically, %hash);