my $sth = $dbh->prepare($section);
        $sth->execute;
while ( my @row = $sth->fetchrow_array() ) {
                print ">@row<\n";
        $worksheet->write($i, $cell_column,  @row[$cell_column],$format1);
        
    }#end while
$sth->finish;
  }#end for section
}# end for report