Select Code to Download

%h = map { $_->[0], $h{$_->[0]} } [ sort { $a<=>$b } keys %h ];

%h = map { $_, $h{$_} } map { $_->[0] } [ sort { $a<=>$b } keys %h ];