foreach my $x1 (0 .. 2) { next if $x - $x1 < 1; -3 4 2 2 2 foreach my $y1 (0 .. 2) { -4 4 3 3 4 next if $y - $y1 < 1; -5 3 3 4 -4 $total += $grid[$x - $x1][$y - $y1]; 4 3 3 4 -3 } 3 3 3 -5 -1 };