@b = map{ $a[ $_-1 ] + $a[ $_ ] } 1 .. $#a;

##</code><code>##

$b[ $_-1 ] = $a[ $_-1 ] + $a[ $_ ] for 1 .. $#a;