my @s;
$s[$_] = $workbook->add_worksheet( "cpze".$_ ) for 1..8;
# $s[0] remains undefined!
for my $i (1..8) {
		for my $r (0..24) {
				for my $c (0..4) {
						$s[$i]->write($r,$c,$arrays[$i][$r][$c]); 
				}
		}
}