my @searchkeys = qw(a b c d);
my $query = qq{
    SELECT * FROM some_table WHERE key IN (
    }
    . join(",", map( {$dbh->quote($_)} @searchkeys))
    . qq{)};