Select Code to Download

use List::Util qw(sum);

my $sum = sum(@all);

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