On 26 February 2014 03:59, James Laver <james.laver at gmail.com> wrote: > Ah yes. I’d just woken up. > > sub pairwise_sum($a2,$a2) { > map {shift($_)+shift($_)} (zip @$a1, @$a2); > } > ... I think you need that book we're writing more than you need to write it ;) -- Kent