Select Code to Download

SELECT * FROM some_table WHERE key IN ( ?, ?, ?);

my @searchkeys = qw(a b c d);
my $query = qq{
...
    . join(",", map( {$dbh->quote($_)} @searchkeys))
    . qq{)};

#!/usr/bin/perl -w
use DBI;
...
Benchmark: timing 2000 iterations of in, or...
    in: 17 wallclock secs ( 0.30 usr +  0.10 sys =  0.40 CPU)
    or: 95 wallclock secs ( 0.41 usr +  0.06 sys =  0.47 CPU)