my $query = 'INSERT INTO table (' . join(',' => map { "col$_" } 1 .. $cols) . ') VALUES (' . join(',' => ('?') x $cols) . ')'; #### my $cols = @{ $csv->getline($fh) };