Help for this page

Select Code to Download


  1. or download this
    use List::Util qw[ min ];

%h = map{ 
    $_, $h{ $_ } 
} min keys %h;
  2. or download this
    %h = map{ 
    $_, $h{ $_ } 
} ( sort{ $a <=> $b } keys %h )[ 0 .. 2 ];