http://qs321.pair.com?node_id=638599


in reply to Perly way of handling coordinates?

Here is the 'clever' way, you asked for.
use List::MoreUtils qw(pairwise); @origin = (2,3,4); @offset = (4,5,6); @interesting_cell = pairwise { $a + $b } @origin,@offset; #gets(6,8,10 +)
--Artist