foreach my $MIS_SHEET (@tables) { # Get the first worksheet. my $sheet = $template->worksheet($MIS_SHEET); #### my $sth = $dbh->prepare("SELECT * from $MIS_SHEET"); #Getting data from table $sth->execute() or die $DBI::errstr; while (my @row = $sth->fetchrow_array()) { ++$row; foreach my $value (@row) { $sheet->AddCell( $row, $col, $value ); ++$col; } } #### +-----------------------+ | Tables_in_MIS_Reports | +-----------------------+ | MIS_A2P | | MIS_Overall | | MIS_P2A | | MIS_P2P | +-----------------------+ mysql> select * from MIS_P2P; +------------+-------+---------+---------+--------------+-----------+---------------+--------------+-------------+----------+ | Date | MDA | Success | FDA | Success_rate | Sub_Error | Network_Error | System_Error | Total_Error | Total_MO | +------------+-------+---------+---------+--------------+-----------+---------------+--------------+-------------+----------+ | 2015-07-31 | 38002 | 95.7437 | 93.1952 | 93.0325 | 85.5974 | 10.5565 | 0.0818331 | 6.34294 | 29494 | | 2015-07-31 | 38002 | 95.7437 | 93.1952 | 93.0325 | 85.5974 | 10.5565 | 0.0818331 | 6.34294 | 29494 | | 2015-07-31 | 38002 | 95.7437 | 93.1952 | 93.0325 | 85.5974 | 10.5565 | 0.0818331 | 6.34294 | 29494 | | 2015-08-01 | 38002 | 95.7437 | 93.1952 | 93.0325 | 85.5974 | 10.5565 | 0.0818331 | 6.34294 | 29494 | | 2015-08-02 | 38002 | 95.7437 | 93.1952 | 93.0325 | 85.5974 | 10.5565 | 0.0818331 | 6.34294 | 29494 | | 2015-08-03 | 38002 | 95.7437 | 93.1952 | 93.0325 | 85.5974 | 10.5565 | 0.0818331 | 6.34294 | 29494 | +------------+-------+---------+---------+--------------+-----------+---------------+--------------+-------------+----------+ 6 rows in set (0.00 sec) #### Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 242. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 242. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 242. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 242. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281. Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274. Use of uninitialized value $iC in array element at /root/perl5/lib/perl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281.