use List::Util qw(sum);

my $sum = sum(@all);

##</code><code>##

my $sum = sum( @all[0 .. $#all-1] );