# $names sei eine Referenz auf ein Array.
# Dann kann ich mit @$names das ganze Array ansprechen.

# Suche alle Elemente aus @$names, die "wahr" sind, d.h. definiert
# und ungleich dem Leerstring oder der Null:
my @liste1 = grep $_, @$names;

# Nimm jedes einzelne Element aus @liste1, umgib es mit 
# %...% und fuehre ein $dbh->quote damit aus. Gib die 
# Ergebnisliste zurueck:
my @liste2 = map { $dbh->quote("%$_%") } @liste1;

# Fuege alle Elemente von @liste2 zusammen, jeweils getrennt 
# durch die Zeichenkette " or ":
my $string1 = join (' or ', @liste2);

# Haenge vor die Zeichenkette $string1 den Text "where ":
my $filter = 'where ' . $string;