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