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