#!/usr/bin/perl
# https://perlmonks.org/?node_id=1217948

use strict;
use warnings;
use Data::Dump 'dd';
use Time::HiRes qw( time sleep );
use MCE::Loop;

my $maxforks = 20;
my @ids = 'job0001' .. 'job9999'; # it is cool that this works
my $start = time;

MCE::Loop->init( max_workers => $maxforks, chunk_size => 1 );

my @answers = mce_loop {
    my $id = $_;
    # sleep rand;
    my $ret = { id => $id, pid => $$, time => time - $start };
    MCE->gather($ret);
} \@ids;

MCE::Loop->finish;

dd \@answers;


##</code><code>##

#!/usr/bin/perl
# https://perlmonks.org/?node_id=1217948

use strict;
use warnings;
use Data::Dump 'dd';
use Time::HiRes qw( time sleep );
use MCE::Loop;

my $maxforks = 20;
my @ids = 'job0001' .. 'job9999'; # it is cool that this works
my $start = time;

MCE::Loop->init( max_workers => $maxforks, chunk_size => 'auto' );

my @answers = mce_loop {
    my @ret;
    for my $id ( @{ $_ } ) {
        # sleep rand;
        push @ret, { id => $id, pid => $$, time => time - $start };
    }
    MCE->gather(@ret);
} \@ids;

MCE::Loop->finish;

dd \@answers;