%h = map { $_, $h{ $_ } }
         shift sort { $a <==> $b } keys %h;