Help for this page
my $table_statement = "SELECT table_name FROM ${database}.information_ +schema.tables";
my %tablenames = (); while ((@row) = $sth->fetchrow_array) { $tablenames{$row[0]}++; }