1 2 3 4 5 6 7 8 9 10 11
my @tmp_array = (1, 3, 5, 7, 9,); print "Total: ", compute_sum(\@tmp_array), "\n"; sub compute_sum { my ($aref) = @_; my $sum = 0; foreach (@$aref){ $sum += $_; } return $sum; }
1
Total: 25