I wonder if something like this might be helpful/useful:

#!/usr/bin/env perl

use strict;
use warnings;

use Algorithm::Combinatorics qw(combinations);
use MCE::Loop;
 
MCE::Loop->init(
   max_workers => 12, # what ever you have...
   chunk_size  => 'auto'
);

my $length = 10;
my $ones   = 2;

mce_loop {
        my ( $mce, 
             $chunk_ref, 
             $chunk_id ) = @_; 
        for ( @{$chunk_ref} ) {
            something($_);
        }
} combinations([0..$length-1], $ones);

sub something {
   my $chunk_ref = shift;
   ...;
}
[download]

Unfortunately I can’t test because I don’t have access to my Mac because of relocation/renovation. I hope also that I didn’t miss the point. Regards, Karl

See also MCE::Loop

Minor update: Link added etc.