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

##</code><code>##

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