## see what we got

use File::Find;

# Get $dirname from first command-line argument
my $dirname = $parent;

find( \&do_process, $dirname );    

my ( $a, $b );

sub do_process 
{

  if ( -r $_ ) 
  {                
     my $file_name = $_;
     open( my $fh, '<', $file_name );    # Use three-arg open!
     while (<$fh>) 
     {
        chomp();
        if (/\btournament winner is 1.gonzaga\b/i) { $a = "$file_name:$_"; }
        if (/\btournament winner is 2.miSTb/i)     { $b = "$file_name:$_"; }
     }
  }
}