Help for this page

Select Code to Download


  1. or download this
    my ($min, $max) = (scalar each %h) x 2;
    ($min, $max) = (
    ...
        $h{$_} > $h{$max} ? ($min, $_) :
        ($min, $max)
    ) for keys %h;
    
  2. or download this
    my $min = each %h;
    my $max = each %h;
    ...
    else {
        $max = $min;
    }