Maybe you want to use a proper CSV writer like Text::CSV_XS?

Also, what is the output you get with your current program, and how is the output you currently get different from what you want? Maybe you are joining the strings with the wrong stuff in the middle?