my $max = pop @{@vals=sort @vals; \@vals};

##</code><code>##

@vals = sort @vals;
my $max = pop @vals;