my $stmt = "SELECT table_name FROM information_schema.tables WHERE table_schema = ? ORDER BY table_name";
my $tables = $dbh->selectcol_arrayref( $stmt, {}, ( $schema ) );