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

##</code><code>##

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