foreach my $row (@{$table}) {
   print "columns: ", join(", ", @{$row}), "\n";
}