use List::MoreUtils qw(pairwise); @origin = (2,3,4); @offset = (4,5,6); @interesting_cell = pairwise { $a + $b } @origin,@offset; #gets(6,8,10)