Select Code to Download

sub max {
    my ($max, @vars) = @_;
    for (@vars) {
...
    }
    return $max;
}

sub max {
    my ($max, $next, @vars) = @_;
    return $max if not $next;
    return max( $max > $next ? $max : $next, @vars );
}