if (!length $fields[28]) {
    chomp @fields;
    my $str = join ',', @fields;
    print $ERR_FH "$str\n";
}