sub some_sub {
   my @results;
   find(sub { push @results, $_ if check($_) });
   ...
}

sub check {
   ... Check if the file matches. Doesn't know about File::Find ...
}