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.

---
demerphq