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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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