my $sql = sprintf <<EOSQL, join ',', ('?') x $size;

SELECT  something 
FROM    atable 
WHERE   data IN (%s)

EOSQL