sub g{$m=pop;map{$m=$_ if $_>$m}@_;$m}