Perl to the max

This is why Perl rocks: sub max{(sort{$b<=>$a}@_)[0];}