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