( my $i = $#a ) > 0 or die;
$b[ $i ] = $a[ $i ] + $a[ --$i ] while $i;