use List::Util qw(sum);

my $sum = sum(@all);