On the other hand, if you would prefer concise and efficient, use:
my $i = $#a; $b[ $i ] = $a[ $i ] + $a[ --$i ] while $i; [download]
In reply to Re: Abusing Map by BrowserUk in thread Abusing Map by writch