##
$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();