use strict;
use Excel::Writer::XLSX;
 use Spreadsheet::ParseXLSX;
use Carp qw( croak );
use Cwd qw( abs_path );
use Path::Class;
 use Win32::OLE qw(in);
use Win32::OLE::Const 'Microsoft Word';
...

my $path=....;

    my $word =Win32::OLE->new('Word.Application','Quit');   
     my $word_file = file(abs_path($path)); 
 
    my $doc = $word->{Documents}->Open("$word_file");
print "after doc\n";
    my $tables = $word->ActiveDocument->{Tables};
 
    for my $table (in $tables) {
 
my $numrows=$table->Rows->Count; 
 $main::numcols=$table->Columns->Count; 
 
# Iterate through rows and count columns
foreach my $rownum (1 .. $table->Rows->Count) {
    my $row = $table->Rows->Item($rownum);# code crashes here

...

}
}