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