...
find(\&wanted, @dirs);
do_something_with(get_found_files());
check_something_done_with(get_found_files());
...
{
    my @found_files;

    sub get_found_files { return @found_files }

    sub wanted {
        ...
        push @found_files, $File::Find::name;
        ...
    }
}