my $rule =  File::Find::Rule->new;

  $rule->file;
  
  $rule->name( '*.doc' );
  
  $rule->name(length >= 50);

  
  my @files = $rule->in( @subdirs );
  
  foreach(@files){
    print OUT_FH "$_";
    print OUT_FH "\n";
  }