There's Text::CSV_XS with the always_quote option set.

use Text::CSV_XS qw( );

my $csv = Text::CSV_XS->new({
   always_quote => 1,
});

while (...) {
   my %dataRow = ...;

   $csv->combine(@dataRow{qw( field1 field2 field3 field4 field5 )})
      or die;

   print OUTPUTFILE $csv->string()
      or die;
}
[download]

join is a good start, but we'd have to know more about the contents of your hash to answer any better. In general, you should be careful to escape any double-quotes in your data. I'd use something like:

print {$outfile} join ', ',
    map { qq|"$_"| }
    map { escape_quotes( $_ ) }
    @dataRow{qw( field1 field2 field3 field4 field5 ) };

...

sub escape_quotes
{
    my $string = shift;

    # a negative-lookbehind may be appropriate
    # to prevent double-escaping
    $string    = s/"/\\"/g;
    return $string;
}
[download]

use strict;
use warnings;

my %dataRow = (field1=>1, field2=>2);
print qq{$dataRow{field1}","$dataRow{field2}\n};

__END__
1","2
[download]

I just need the output in a simple comma delimmted file. See below. "COLOMON1","COLOMON2" "COLOMON1","COLOMON2" "COLOMON1","COLOMON2" "COLOMON1","COLOMON2" "COLOMON1","COLOMON2"

Don't think there is a module for that

print OUTPUTFILE '"',join('","',@dataRow),'"' if (@dataRow);
print "\n";
[download]

UPDATE: Removed double if. Thanks Ikegami.

2ND UPDATE: Also I seem to have missed that AnonMonk uses a hash for the rows. So I have to withdraw my solution and only comment that probably an array would have been better to store the fields