# Tabellen aus DB auslesen
my $statement = "SHOW TABLES";
my $sth = $dbh->prepare($statement) or die("Kann die Abfrage '$statement'nicht starten: $DBI::errstr");
$sth->execute;
my @optimize_tabellen = ();
while(my $ref=$sth->fetchrow){
    push @optimize_tabellen,$ref;
}
$sth->finish;