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