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

MCE::Map->init(
    chunk_size  => 'auto',
    max_workers => 8,
    posix_exit  => 1,
);

my $start = time();
my @ret = mce_map { $_ * 2 } 1..10_000_000;

printf "%s %s\n", $ret[5_000_000], $ret[-1];
printf "%0.3f seconds\n", time() - $start;

__END__
10000002 20000000
0.996 seconds