Help for this page

Select Code to Download

Select or download this

    my @largest;
    while ( my($k,$v) = each %HASH ) {
...
            # in @largest, replace that element with $v
        }
    }