Select Code to Download

      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]);