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