sub max {
    my $max=shift;
    $max < $_ and $max = $_ 
       for @vars;
    return $max;
}
[download]

Is marginally shorted and probably faster, but commits what some would call the crime of logic based control flow.