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