my @results;

find(
   sub {
      ...
      push @results, ...;
   },
   $dir
);