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);