$csv->print(\*STDOUT, [@$row]);  # unblessed shallow clone of $row