my $sth = $dbh->table_info();
my $tables = $sth->fetchall_arrayref();
print Dumper @$tables;