my %common = (
	source    => "$dir-$filename",
	substatus => $status,
	original  => $line,
	imported  => $datetime,
);

my @records = (
	{
		contract  => $data[1],
		invoice   => $data[2],
		%common,
	},
	{
		transaction => $data[1],
		contract    => $data[2],
		amount      => $data[3],
		applied     => $data[4],
		account     => $data[7],
		%common,
	},
	{
		contract      => $data[1],
		amount        => $data[2],
		tax           => $data[3],
		applied       => $data[5],
		nameonpayment => $data[6],
		invoice       => $data[7],
		%common,
	},
	{
		nameonpayment => $data[1],
		account       => $data[2],
		amount        => $data[4],
		applied       => $data[5],
		invoice       => $data[6],
		%common,
	},
);

my @fields = do {
	my %seen;
	grep {! $seen{$_}++} map {keys %$_} @records;
};

my $fields = join ',', @fields;
my $placeholders = '(' . join(',', ('?') x @fields). ')';
my $all_placeholders = join ',', ($placeholders) x @records;
my @values = map {@{$_}{@fields}} @records;

$dbh->do("insert into batchpay ($fields) values $all_placeholders", {}, @values) or die $dbh->errstr;