1 while $dbh->pg_getcopydata(\$data[$record_count++]) >= 0;