{ # somewhere in a block or sub
    my @files;
    find(sub {
        push @files, $_
    }, $dir);
}