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


In reply to Re^2: Finding the max()/min() (stmt modifier form) by demerphq
in thread Finding the max()/min() by dragonchild

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":