Select Code to Download

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

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