use strict;
use warnings;
use MCE;
use Time::HiRes 'time';

sub process_file {
    my ($file) = @_;
}

my $mce = MCE->new(
    max_workers => MCE::Util::get_ncpu(),
    chunk_size  => 2,
    user_func   => sub {
        my ($mce, $chunk_ref, $chunk_id) = @_;
        process_file($_) for @{ $chunk_ref };
    }
)->spawn;

my @file_list = (1 .. 1_000_000); # simulate a list of 1 million files

my $start = time;
$mce->process(\@file_list);
printf "%0.3f seconds\n", time - $start;

$mce->shutdown; # reap workers

##</code><code>##

chunk_size   1  3.773 seconds    1 million chunks
chunk_size   2  1.930 seconds  500 thousand chunks
chunk_size  10  0.423 seconds  100 thousand chunks
chunk_size  20  0.234 seconds   50 thousand chunks