# 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;

@optimize_tabellen = $sth->fetchrow;

$ary_ref  = $sth->fetchall_arrayref;