use FileSystemObjects::Directory;

#...

for ( @path )
{
  my $dir = FileSystemObjects::Directory->new ($_);
  
  for ( $dir->files (mask => '*.txt') )
  {
    print $_->name, " / ", $_->size, "\n";
  }