use Data::Dumper;
$Data::Dumper::Useqq = 1;
foreach my $ts ($te->table_states) {
  foreach my $row ($ts->rows) {
    print Dumper $row;
  }
}