sub f{
$x=pop;map{$_>$x?$x=$_:0}@_;$x
}