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