Posted on 2006-06-212017-12-12 by TealPerl to the max This is why Perl rocks: sub max{(sort{$b<=>$a}@_)[0];}