if (!length $fields[28]) {
    chomp @fields;
    print $ERR_FH join (',', $_) for @fields;
}