如何加速Perl的readdir以获得250,000个文件的目录？

opendir(DIR, "/path/to/directory") or die "Cannot open directory: $!";
my @files = readdir(DIR);
closedir(DIR);

use File::Find;

my @files;
find(sub { push @files, $File::Find::name }, "/path/to/directory");

use File::Slurp;

my @files = read_dir("/path/to/directory");

my %files;
while (my $file = readdir(DIR)) {
    $files{$file} = 1;
}

use threads;

my @threads;
foreach my $dir (@directories) {
    push @threads, async {
        opendir(DIR, $dir) or die "Cannot open directory: $!";
        my @files = readdir(DIR);
        closedir(DIR);
        return \@files;
    };
}

my @files;
foreach my $thread (@threads) {
    push @files, @{$thread->join()};
}