Select Code to Download

my $query = 'INSERT INTO table (' . join(',' => map { "col$_" } 1 .. $
+cols)
            . ') VALUES (' . join(',' => ('?') x $cols) . ')';

my $cols = @{ $csv->getline($fh) };