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