use Spreadsheet::WriteExcel
my $workBook = Spreadsheet::WriteExcel -> new ( "report.xls" );

foreach $file ( @files ) {
        if ( ! ( ( $file eq "." ) || ( $file eq ".." ) ) )
{

                 #Create excel sheet for each testsuite.
                 my $workSheet;

                 $workSheet = create_excel ( $file );
                 write_excel ( $workSheet );                 
       }
}