my @reports = (
    [doc_request => [qw(T_Doc_Request N_Doc_Request X_Doc_Request)]],
    [doc_errors  => [qw(T_Doc_Errors  N_Doc_Errors  X_Doc_Errors )]],
);

my $T_Doc_Request=qq{select.... };
my $N_Doc_Request=qq{select... };
my $X_Doc_Request=qq{select... };
my $T_Doc_Errors=qq{select.... };
my $N_Doc_Errors=qq{select... };
my $X_Doc_Errors=qq{select... };


for (@reports) {
    my $report = $_->[0];
        $worksheet->write(1, 0, $report, $header);
        $i++;
    for my $section (@{$_->[1]}) {
print qq{report '$report', section '$section'\n};
        $cell_column = 0;
        $worksheet->write($i, $cell_column,  $section,$format1);
        $cell_column++;