Perl相当于Python中的工人池

我有一些Python代码，它们完全符合我的要求，但是我也需要类似的Perl代码

以下是我的Python代码：

pool = multiprocessing.Pool()
for item in list:
    pool.apply_async(myFunction, args=(item,))
pool.close()
pool.join()

这段代码在它自己的进程而不是线程中运行每个函数。同时运行的最大进程数等于逻辑核数。

请查看

use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new($MAX_PROCESSES);

foreach my $item (@list) {
    $pm->start and next;
    my_function($item);
    $pm->finish;
}
$pm->wait_all_children;