use strict;
use warnings;
use feature 'say';

require MCE;

my @in = ( 0 .. 9 );
my @out;

my $mce = MCE-> new(
    chunk_size => 1, 
    max_workers => 4,
    user_begin => sub {
        print "## ", MCE-> wid, " started\n";
    },
    user_end => sub {
        print "## ", MCE-> wid, " completed\n";
    },
    user_func => sub { MCE-> gather( $_ )},
    input_data => \@in,
    gather => \@out,
);

$mce-> run;
say "@out";
$mce-> shutdown;