Help for this page
foreach my $var($self->tsids) {
my $fieldnames = $sth->{NAME}; while(my $row = $sth->fetch) { ... } } }