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