Help for this page

Select Code to Download


  1. or download this
    my @temp = map { $_ => $h{$_} } sort { $a <=> $b } keys %h;
%h = @temp[0,1];
  2. or download this
    %h = do {
    my @temp = map { $_ => $h{$_} } sort { $a <=> $b } keys %h;
    @temp[0,1];
};
  3. or download this
    %h = do {
    my @temp =
...
        } keys %h;
    @temp[0,1]
};