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

##</code><code>##

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