合計値の取得

　Statistics::Liteのsumで取得できます。

use strict;
use warnings;
use Statistics::Lite qw(sum);

my @data = (5, 10, 3, -20, 9);
my $sum = sum @data;
print $sum, "\n";

　List::Utilのsumでも取得できます。

use strict;
use warnings;
use List::Util qw(sum);

my @data = (5, 10, 3, -20, 9);
my $sum = sum @data;
print $sum, "\n";