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