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