You'll need a (package) global array to push results onto. That is one thing that many dislike about File::Find. You can localize it and pass it out to a lexical if you like,

my @found_array = do {
    local @found;
    find \&wanted, $dir;
    @found
};

sub wanted {
    no strict 'vars';
    push @found, $_
     # if . . .
}
[download]

It doesn't have to be a global. I like the closure solution:

use strict;
use File::Find;

print "starting a find \n";
print join("\n", myfind('.')) . "\n";


sub myfind
{
  my $dir = shift;
  my $list = [];
  find({wanted=>sub{findcb($list)}}, $dir);
  return((wantarray)?(@$list):($list));
}

sub findcb
{
  my $listref = shift;
  push @$listref, $File::Find::name;
}
[download]

This is a closure right?

use File::Find;
my @files;
find(
  {
    wanted => sub {
      push @files, $File::Find::name
        if -M;
      }
  },
  '/dir'
);
[download]