I don't want to sound patronizing, but you should really not generate CSV the way you do. What if a field contains a double quote? Your CSV data will be invalid. There are two very fine (and fast) modules on CPAN that will do this for you: Text::CSV_XS and Text::CSV (which will use the former if installed for speed reasons)

Please see the docs for a jump start]