## see what we got
my $phrase = "round is 4";
my @sought = qw ( 2.miST 3.texTech 1.va 5.auburn);

print "OUTFILES*******************\n";
foreach my $filename ( glob("./my_data/$first_second/*") ) {
  open my $fh, '<', $filename or die "can't print $filename! $!";
  while ( my $line = <$fh> ) {
    if ( $line =~ m/$phrase/g ) {
      say "filename is $filename";

    }

  }
  close $fh;
}
##</code><code>##

round is 4
3.lsu
3.texTech
2.tn
1.nc
finals are 3.lsu 1.nc
tournament winner is 1.nc
----------------
OUTFILES*******************
filename is ./my_data/03-04-2019-23-07-21/03-04-2019-23-07-21.1.txt
filename is ./my_data/03-04-2019-23-07-21/03-04-2019-23-07-21.13.txt
filename is ./my_data/03-04-2019-23-07-21/03-04-2019-23-07-21.17.txt
...
$