for my $field (@fields) {

            for my $field (@fields) {

                my $value = $hashRef->{$field} // q||;

                my $value = $hashRef->{$field} // q||;

                $value =~ s/[\r\n]//g;

                $value =~ s/[\r\n]//g;

                $$strCSV .= '"' . $value . '",';

                $$strCSV .= '"' . $value . '",';

            }

            }

            chop $$strCSV;

            chop $$strCSV;