my $Book = $Excel->Workbooks->Open($files[$x]) || die " $! ";