my $max;
grep($max=($_>$max)?$_:$max,@arr);