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