use File::Find;
my $name = 1;
find(\&Wanted, $dir);
sub Wanted {
	    /$name\.*/;
	    if undef {
		      $name++;
		      return;
	   } else { 
	   open(FILE, $_);
	   my @lines = <FILE>;
	   }
}