I had looked at it and yes I do need to increment the columns when I start to split the columns, but the issue is that the query returns a set that is only in one column, and I need to take that column, into a data array, then pull each part of the data array out, split those values amongst the columns, and trim the ( ). I see now that split cleans , for me. The issue now is taking the split and passing the split parts to different columns. So you have this :

while (my @res = $sth->fetchrow_array()) {
   my $c=0;
   $worksheet->write($i, $c++, $_) for @res;
   $i++;
}
[download]

That results in this:

COL ->    A        B        C        D        E        F
ROW -> 1 (x,y,..)
       2 (a,b,..)
       3 (q,w,..)
       4 (d,f,..)
          etc...
[download]

With my query results this only returns one column of data because all the columns for each row are consolidated in the first column from the result set. My perl script needs to rip that apart and allocate the contents of that first column to the other columns.