$dbh->do("insert into batchpay (source,contract, invoice, substatus, original,imported) values (?,?,?,?,?,?)", {}, "$dir-$filename", $data[1], $data[2], $status, $line, $datetime );
$dbh->do("insert into batchpay (source,transaction,contract,amount,applied,account,substatus,original,imported) values (?,?,?,?,?,?,?,?,?)", {}, "$dir-$filename", $data[1], $data[2], $data[3], $data[4], $data[7], $status, $line, $datetime );
$dbh->do("insert into batchpay (source,contract,amount,tax,applied,nameonpayment,invoice,substatus,original,imported) values (?,?,?,?,?,?,?,?,?,?)", {}, "$dir-$filename", $data[1], $data[2], $data[3], $data[5], $data[6], $data[7], $status, $line, $datetime );
$dbh->do("insert into batchpay (source,nameonpayment,account,amount,applied,invoice,substatus,original,imported) values (?,?,?,?,?,?,?,?,?)", {}, "$dir-$filename", $data[1], $data[2], $data[4], $data[5], $data[6], $status, $line, $datetime );