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

  print "\n";
}