my $sql = qq{SELECT * FROM topic WHERE name LIKE "$suchen" ORDER BY timestamp};

my $sql = qq{SELECT * FROM topic WHERE name, ort LIKE "$suchen" ORDER BY timestamp};

my @wort = split (/\s+/, $suchen);
        my $verkn = "AND"; # Standard-Verknüpfung
        $verkn = "AND" if $auswahl eq "alle";
        $verkn = "OR"  if $auswahl eq "eins";

        # pro wort ein test; test mit $verkn verbinden
        # das ganze in Klammern
                
        push (@bedingung,
                "("
                . join (" $verkn ", 
                       ("$select LIKE ?") x @wort)
                . ")"
              );
        # Um die Worte Joker % rummachen
        push (@platzhalterdaten, map { "%$_%" } @wort);
	
	if (@bedingung) {
        $where = "WHERE ". join (" AND ", @bedingung);
   	} 
    	$where = "" unless $where;
	
	$select = lc $select;	
	$sql = qq{SELECT * FROM event_topic $where ORDER BY time};
	
	$sth->execute(@platzhalterdaten);

my @tables = qw(table1 table2 table3 table4);

foreach(@tables){
  my $select = "SELECT * FROM $_ $where ORDER BY time;";
  my $sth = $dbh->prepare($select);
  $sth->execute();
  while(my @array = $sth->fetchrow_array()){
    print "@array";
  }
}

my @tables = qw(table1 table2 table3 table4);

foreach(@tables){
  my $select = "SELECT * FROM $_ $where ORDER BY time;";
  my $sth = $dbh->prepare($select);
  $sth->execute();
  while(my @array = $sth->fetchrow_array()){
    print "@array";
  }
}