Re^2: Finding the max()/min() (stmt modifier form)

[demerphq]

in reply to Re: Finding the max()/min()
in thread Finding the max()/min()

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

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