use warnings;

use Spreadsheet::WriteExcel;

use Spreadsheet::ParseExcel;

use Spreadsheet::ParseExcel::SaveParser;

$Month=Sept;
my @s;
sub create {
$workbook = Spreadsheet::WriteExcel->new('FAISTATS_'.'$Month'.'xls');

for $i(1..8) {

$s[$i] = $workbook->add_worksheet( "rpzea0".$i."a001" ) ;

} }
create();