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

##</code><code>##

for my $row (@table) {
  for my $cell (@$row) {
    printf "%4d", $cell;
  }

  print "\n";
}

##</code><code>##

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