Select Code to Download

foreach $ts ($te->table_states) {
  print "Table found at ", join(',', $ts->coords), ":\n";
...
    print "   ", join(',', @$row), "\n";
  }
}