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