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