my $max = pop @{[sort @vals]};


##</code><code>##

use List::Util qw(max);
my $max = max @vals;