Select Code to Download

my @vals = (1,3,6,3,5,2,7,6,8,7,3,4,5,9);
my $max = pop sort @vals; # gives error
...
my $max = pop(@max); # works ok

print "Max is $max\n";