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