my $tables = $dbh->selectcol_arrayref("SHOW_TABLES") or die $DBI::errstr;