my $row=0; my $col=0;
$xWS->write($row, $col++, $_) for @{$sth->{NAME}};

# Read the query results and write them into the spreadsheet
while (my $ar=$sth->fetchrow_arrayref) {
      ++$row; $col=0;
               $xWS2->write($row, $col++, $_) for @$ar;
                        }