Select Code to Download

use strict;

...
          data_line5
          data_line6
    col4  data_line7

my $fieldlist = join(",", @fields);
my $placeholders = join(",", map {'?'} @fields);
...
my $insert = qq{
    INSERT INTO foo ($fieldlist) 
    VALUES ($placeholders)};