%h = @{ shift ( map {[ $_, $h{$_} ]} sort { $a<=>$b } keys %h)};