#!/usr/bin/perl

use strict                  ;
use envParser               ;
use Data::Dumper            ;
use Tie::IxHash             ;
use File::Basename          ;
use KscAccessDD             ;
use Getopt::Long            ;
use Text::Table             ;
use Spreadsheet::WriteExcel ;
#use Spreadsheet::WriteExcel::Format    ;

<.....Hash preparation code...>

my $XL = Spreadsheet::WriteExcel->new('output_file.xls');
my $WS = $XL->add_worksheet('my data');
my $format      = $WS->add_format();
$format->set_bold();
$format->set_color('black');
$format->set_align('center');
$format->set_size('10');

my $count = 1 ;
my ($ROW, $COL) = (0, 0);
for my $colname (keys %ets_qor_hash) {
    $WS->write($ROW, $COL,$count);
    ++$COL;
}