my $sql = 'SELECT * FROM table WHERE column IN (' .
   ( join ',', map { $dbi->quote($_) } @array ) . ')';

##</code><code>##

my $sql = 'SELECT * FROM table WHERE column IN (' .
   '?' . (',?' x $#array) . ')';