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