my %tablenames = ();
while ((@row) = $sth->fetchrow_array) {
  $tablenames{$row[0]}++;
}