my $sth = $db->prepare( qq{
INSERT INTO mf_forms (CLIENT,RECORD,CONTROL,CUSIP,FROMACCT,F_IND,TOACCT,T_IND,
FP,ORIGQTY,DIV,LTCG,STCG,SOCSEC,BKRNO,THIRDPARTYCD,USERID,EDATE,
ORIGAMT,CLOSEDIND,ADPSECNO,BRNCH,ACNT,TYPE,CHKDIGIT,PDATE,ACTLQTY,
ACTLAMT,CERTIND,REQST,RDATE,COMNTS,TRNFTYPE,FILLER1,ADR_L1,ADR_L2,ADR_L3,
ADR_L4,ADR_L5,ADR_L6,FILLER_B,CERTNO1,CERTSHRS1,CERTNO2,CERTSHRS2,
CERTNO3,CERTSHRS3,CERTNO4,CERTSHRS4,CERTNO5,CERTSHRS5,CERTNO6,CERTSHRS6
,CERTNO7,CERTSHRS7,CERTNO8,CERTSHRS8,CERTNO9,CERTSHRS9,CERTNO10,CERTSHRS10,FILLER_B
) VALUES (
?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,?)
}) or die "Cannot prepare statement: ${\$db->errstr}\n";

##</code><code>##

$sth->execute($CLIENT,$RECORD,$CONTROL,$CUSIP,$FROMACCT,$F_IND,$TOACCT,$T_IND,
$FP,$ORIGQTY,$DIV,$LTCG,$STCG,$SOCSEC,$BKRNO,$THIRDPARTYCD,$USERID,$EDATE,
$ORIGAMT,$CLOSEDIND,$ADPSECNO,$BRNCH,$ACNT,$TYPE,$CHKDIGIT,$PDATE,
$ACTLQTY,$ACTLAMT,$CERTIND,$REQST,$RDATE,$COMNTS,$TRNFTYPE,$FILLER1,$ADR_L1,$
ADR_L2,$ADR_L3,$ADR_L4,$ADR_L5,$ADR_L6,$FILLER_B,$CERTNO1,$CERTSHRS1,$CERTNO2,$CERT
SHRS2,$CERTNO3,$CERTSHRS3,$CERTNO4,$CERTSHRS4,$CERTNO5,$CERTSHRS5,$CERTNO6,$CERTSHR
S6,$CERTNO7,$CERTSHRS7,$CERTNO8,$CERTSHRS8,$CERTNO9,$CERTSHRS9,$CERTNO10,$CERTSHRS10,$FILLER_B)
  or die "Could not insert: ${\$sth->errstr}\n";

##</code><code>##

my @columns = qw/
CLIENT RECORD CONTROL CUSIP FROMACCT F_IND TOACCT T_IND 
FP ORIGQTY DIV LTCG STCG SOCSEC BKRNO THIRDPARTYCD USERID EDATE 
ORIGAMT CLOSEDIND ADPSECNO BRNCH ACNT TYPE CHKDIGIT PDATE ACTLQTY 
ACTLAMT CERTIND REQST RDATE COMNTS TRNFTYPE FILLER1 ADR_L1 ADR_L2 ADR_L3 
ADR_L4 ADR_L5 ADR_L6 FILLER_B CERTNO1 CERTSHRS1 CERTNO2 CERTSHRS2 
CERTNO3 CERTSHRS3 CERTNO4 CERTSHRS4 CERTNO5 CERTSHRS5 CERTNO6 CERTSHRS6
 CERTNO7 CERTSHRS7 CERTNO8 CERTSHRS8 CERTNO9 CERTSHRS9 CERTNO10 CERTSHRS10 FILLER_B
/;

my $sql = 'inset into mf_forms ('
    . join( ',', @columns )
    . ') values ('
    . join( ',', ('?') x @columns )
    . ')';