#!/usr/bin/perl -w
  use strict;

  my @EXON_IN = </home/scott/manydirs/[0-9]*/*test.txt>;
  foreach my $file (@EXON_IN){
     #do whatever it was my coworker wanted to do
     #Greg, are you looking?
  }