foreach my $file (@files) {
        if ( !( ( $file eq "." ) || ( $file eq ".." ) ) )
        {    
            ...
        }
    }

    $workBook->close();