my @names = qw(name1 name2 ...);
my $select = 'SELECT fields from tble where name IN('.join(',',('?') x scalar(@names)).')';

my $sth = $dbh->prepare($select);
$sth->execute(@names) or die $DBI::errstr;