my @seiten= qw/vnav_head vnav_item vnav_foot hnav_head hnav_item hnav_foot/;
@seiten = join ',', map {$_ = "'$_'";} @seiten;
my $sql = qq!
SELECT template FROM template WHERE name IN(@seiten)
!;
my $sth = $dbh->prepare($sql) or die DBI::errstr;
$sth->execute or die DBI::errstr;
while ((my $template) = $sth->fetchrow_array()) {
print $template,"\n";
}
$sth->finish();
$dbh->disconnect();