Public Pastes

use 5.026;
use strict;
#use warnings;

my $minutes = 10;

my @map;
my $i=0;
my $cols=0;
my $rows=0;
foreach my $line (<>) {
    chomp($line);
    my @row = split(//,$line);
    $cols=scalar @row;
    $map[$i++]=\@row;
    $rows++;
}
my $step = 1;
my ($tt, $tl);
for ($step .. $minutes) {
    my @new;
    ($tt, $tl) = (0,0);
    say "After $step minute";
    for (my $x=0;$x<$rows;$x++) {
        for (my $y=0;$y<$cols;$y++) {

            my $this = $map[$x][$y];
            my ($trees, $lumber) = (0,0);
            foreach ( [-1,-1],[-1,0],[-1,1],[0,-1],[0,1],[1,-1],[1,0],[1,1]) {
                my $x1=$x+$_->[0];