my $table = 'table';
my @cols = (qw( a b c));
$" = ", ";
$dbh->do ("COPY $table (@cols) FROM STDIN");

while (...) {
  $dbh->pg_putline (join ("\t", @values) . "\n");
}
$dbh->pg_endcopy;
$dbh->commit;
[download]

Ahhh... that was what I was looking for. Many thanks.

In answer to other queries --

• AutoCommit is off (hence, the explicit COMMIT every 100_000 rows).
• I am not reading nor wanting to read from a CSV file, but directly from an array in memory.
• I don't have any INDEXes other than a primary key