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