《Learnning Perl》一例（high-water mask算法）

$maximum = &max( 3, 5, 10, 4, 6 );

sub max {
    my ($myx_so_far) = shift @_;
    foreach (@_) {
        if ( $_ > $max_so_far ) {
            $max_so_far = $_;
        }
    }
    $max_so_far;
}

书上把这种算法称之为：high-water mask算法：洪水过后，会在岸边留下痕迹。最高处的标记，表明了到达的最高水位。