use strict;
               use Spreadsheet::WriteExcel;
       
               # Create a new Excel workbook called perl.xls
               my $workbook = Spreadsheet::WriteExcel->new("XYZ.xls");
       system("C:/Perl_Scripts/XYZ.xls");

               # Add some worksheets
               #my $sheet1 = $workbook->add_worksheet();
               my $sheet1 = $workbook->add_worksheet("Summary");
                         ........................................................................................
#this loops for 6-7 hours to collect data
$sheet2->write($i,0,$freqbk);}
$sheet2->write($i,$f+1,$pwr);