my @files;
find( sub {
    push( @files, $_ );
}, @my_directories );