in reply to Re: Remove lowest number
in thread Remove lowest number

And then to sum up the rest ... 
use List::Util qw(sum);

my $sum = sum(@all);

[download]
Update: or just drop the pop and dice up a slice: 
my $sum = sum( @all[0 .. $#all-1] );

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom