my $workbook = Spreadsheet::WriteExcel->new('perl.xls');
                   
 $s1   = $workbook->add_worksheet('cpze1');
 $s2   = $workbook->add_worksheet('cpze2');
 $s3   = $workbook->add_worksheet('cpze3');
 $s4   = $workbook->add_worksheet('cpze4');
 $s5   = $workbook->add_worksheet('cpze5');
 $s6   = $workbook->add_worksheet('cpze6');
 $s7   = $workbook->add_worksheet('cpze7');
 $s8   = $workbook->add_worksheet('cpze8');


for ($i=1;$i<=8;$i++)
{
   for ($r=0;$r<=24;$r++)
     {
       for ($c=0;$c<=4;$c++)
         {
         $s{$i}->write($r,$c,$arrays[$i][$r][$c]);
     }

  }
}