sub MAX {$t=pop;
(grep{$t<$_?$t=$_:0}@_)[-1]
}