Select Code to Download

foreach my $row (@AoA) {
  my @foo = map { split /\n/ } @$row;
...
    push @new_rows, [ @foo[ $i .. -1 + $i + $width ] ];
  }
}

$VAR1 = [
          [
...
            'cells'
          ]
        ];