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