Use qq to allow interpolation of variables and to print literal quotes. Is this what you had in mind?

use strict;
use warnings;

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

__END__
1","2
[download]