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