>>52
sortはたいていO(n×log n)ぐらいはかかるので、nが大きくなると
まずいだろう。素直に書くなら

$max = @_[0];
foreach (@_) {
$max = $_ if $_ > $max;
}

あたりじゃない? 要素数が少ないとsortの方が速いかもしれないけど。
ただしsortを使うとしてもいったん変数に入れないほうが速いと思った。

(sort {$a<=>$b} @_)[-1];