Help for this page

Select Code to Download


  1. or download this
    my $low_key = (keys %h)[0];
for my $k ( keys %h ) {
...
my $val_l_k = $h{$low_key};
%h=();
$h{$low_key}=$val_l_k;
  2. or download this
    %h = ( map { $_, $h{$_} } sort { $a<=>$b } keys %h)[0,1];
  3. or download this
    %h = PRE_SUB_OP[0,1]( map { $_, $h{$_} } sort { $a<=>$b } keys %h);