Help for this page

Select Code to Download


  1. or download this
    %h = map { $_, $h{ $_ } }
             shift sort { $a <==> $b } keys %h;