Select Code to Download

my @table = ([1, 2, 3], [4, 5, 6]);

for my $row (@table) {
  for my $cell (@$row) {
...

  print "\n";
}

print "@$_\n" for @table;