use warnings; use strict; my @array = qw (0 1 3 2 ) ; my @newarray = $array[0]; for my $i (1 .. $#array) { push @newarray, $array[$i-1] + $array[$i]; } print "@newarray\n"; __END__ 0 1 4 5 #### my @array = qw (0 1 3 2); my @newarray = $array[0]; my $sum = $array[0]; for my $i (1 .. $#array) { $sum += $array[$i]; push @newarray, $sum; } print "@newarray\n"; __END__ 0 1 4 6