Help for this page
Select Code to Download
Select
or
download this
%h = map { $_, $h{ $_ } } shift sort { $a <==> $b } keys %h;