gistfile1.txt

my @spot = [rand xx 10] xx 10;
my @neighbors;
for ^10 X ^10 -> ($i, $j) {
    @neighbors[$i][$j] = eager gather for
            [-1,-1],[+0,-1],[+1,-1],
            [-1,+0],        [+1,+0],
            [-1,+1],[+0,+1],[+1,+1]
    {
        take-rw @spot[$i + .[0]][$j + .[1]] // next;
    }
}
die "Bogus code" unless @neighbors[1][1][0] === @spot[0][0];
die "Bad decont" unless @neighbors[1][1][0] =:= @spot[0][0];