I think you'll have to loop

use File::Find;
my $limit= 4; # Whatever you prefer
for ($name = 1; $name <= $limit; ++$name) {
    find(\&Wanted, $dir);
}
[download]

This will go through all subdirectories and search 1.* first, then 2.*, then 3.* and at last 4.* or whatever you defined as a $limit.

sub Wanted {
#        /$name\.*/;
# NO! You want $name at the beginning!
[download]

Update... Made a mistake         /^$name\./;

        if (/^$name\./) {
#        if undef {
[download]

If what is undef?
What you pretend to do is, increment $name if $name is not in the directory. What you really would do if it worked is: increment $name if the FIRST NAME in the directory doesn't match. It won't match since the first name would (in *NIX) almost always be "."

#              $name++;
#              return;
#       } else { 
       open(FILE, $_);
       my @lines = <FILE>;
       # some processing missing here?
       }
}
[download]