print $ERR_FH join(',', @$_) for @fields;
                      __^^^__