my @array1;
my @array2;

foreach (@array1) {
    undef @array2;
    find(\&mysub, cwd);
    ..do stuff with @array2
}

sub mysub {
        my $file = $File::Find::name;
        ..filter stuff here...
        push(@array2, $file);
}