my $executeSQL = "INSERT INTO FDNMail (msgid,subject,sourceip,sourcednsname,[from],[to],allheaders,preamble,body,receiveddate,attachmentdata,
                custnum,[X-AOLIP]) VALUES ('".$record->{"msgid"}."','".$record->{"subject"}."','".$record->{"sourceip"}."','".$record->{"sourcednsname"}.                "','".$record->{"from"}."','".$record->{"to"}."','".$record->{"allheaders"}."','".$record->{"preamble"}."','".$record->{"body"}.                "','".$record->{"receiveddate"}."','".$record->{"attachmentdata"}."','".$record->{"custnum"}."','".$record->{"xaolip"}."')";
        my $action = $tema1->prepare($executeSQL);

##</code><code>##

my %fields = (
    msgid          => $record->{msgid},
    subject        => $record->{subject},
    sourceip       => $record->{sourceip},
    sourcednsname  => $record->{sourcednsname},
    '[from]'       => $record->{from},
    '[to]'         => $record->{to},
    allheaders     => $record->{allheaders},
    preamble       => $record->{preamble},
    body           => $record->{body},
    receiveddate   => $record->{receiveddate},
    attachmentdata => $record->{attachmentdata},
    custnum        => $record->{custnum},
    '[X-AOLIP]'    => $record->{xaolip},
);

my $sql = "INSERT"
        . " INTO FDNMail (" . join(",",         keys %fields) . ")"
        . " VALUES       (" . join(",", ('?') x keys %fields) . ")";

my $fdnmail_sth = $temal->prepare($sql);
$fdnmail_sth->execute(values %fields);