$workbook = Spreadsheet::WriteExcel>new('FAISTATS_'."$Month".'.xls'); #### $workbook = Spreadsheet::WriteExcel->new('FAISTATS_'."$Month".'.xls'); #### use warnings; use strict; use Spreadsheet::WriteExcel; use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::SaveParser; my $Month = 9; my @s; sub create_excel { my $workbook = Spreadsheet::WriteExcel->new('FAISTATS_'."$Month".'.xls'); for ( my$i=1;$i<=8;$i++) { $s[$i] = $workbook->add_worksheet( "rpzea0".$i."a001" ) ; } } create_excel();