Select Code to Download

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

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