my $live = sum(@.grid[$^x-1..$^x+1][$^y-1..$^y+1]);