Select Code to Download

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

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