Okay, [actual code]:

#!/tps/bin/perl -s


 my @day_of_year = (4257,4257,4258,4259);


      foreach (@day_of_year) {
            print"\nskimming for the day of year number:\n";

            if ($_ =~ /(\d{4})/){
                $day_of_year = $1;
                print "looking for things in $day folder /home/myfiles/day_of_year/$day_of_year/*/desired_file.txt\n";

                my $info_desired_filepath = glob('/home/myfiles/day_of_year/'.$day_of_year.'/*/desired_file.txt');

                print "$info_desired_filepath \t\t is the file name \n\n";
                ;
                    open ($info_FH, '<', $info_desired_filepath)
                        or die "cannot open $info_desired_filepath..........\n\n";

                    print "found a file!!!!!!\n";


                chomp(@lines = <$info_FH>);
                close($info_FH);
            }
    }