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