use strict;
use warnings;

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

__END__
1","2