$ perl test.pl
Head was (column1 column2 column3 column4 column5 column6)
column2,column1,column4,column3
datar1c2,datar1c1,datar1c4,datar1c3
"data,r2c2",datar2c1,datar2c4,datar2c3
datar3c2,datar3c1,datar3c4,"data, r3c3"