my $i = $#a; $b[ $i ] = $a[ $i ] + $a[ --$i ] while $i;