my @keepers;

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
while ($file = readdir(<DIR>)) {
   if ($file =~ /Somthing/ and -f $file and open(FILE, $file) {
      my $pass = 0;
      while (<FILE>) {
         $pass++ if (/\b(?:PASS|sweeps|Final)\b/);
         last if ( $pass == 3 );
      }
      close FILE;
      push @keepers, $file if ( $pass == 3 );
   }
}
# now do whatever needs to be done with @keepers.

##</code><code>##

 ...
      my $pass = 0;
      while (<FILE>) {
         $pass |= 1 if ( /\bPASS\b/ );
         $pass |= 2 if ( /\bsweep\b/ );
         $pass |= 4 if ( /\bFinal\b/ );
         if ( $pass == 7 ) {
            push @keepers, $file;
            last;
         }
      }
 ...