$ perl -wle'
use File::Find;
my (@files_a, @files_b);
find(sub {
    push @files_a, $File::Find::name if -f $File::Find::name;
    push @files_b, $File::Find::name if -f $_;
}, "./testdir");
print "a: (@files_a)\nb: (@files_b)"'
a: ()
b: (./testdir/file ./testdir/sub1/file ./testdir/sub2/file)