use List::Util qw/sum/;
my $total = sum( @array );