my $sum; # ... $sum = 0; $sum += $_ for @array; print "Sum is $sum\n";