%h = ( $_, $h{$_}) for ($_,) = sort {$a <=> $b} keys %h;