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
+)
[download]