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

require MCE::Map;
import MCE::Map;

MCE::Map-> init(
    chunk_size => 1, 
    max_workers => 4,
    user_begin => sub {
        print "## ", MCE-> wid, " started\n";
    },
    user_end => sub {
        print "## ", MCE-> wid, " completed\n";
    },
);

my @a = MCE::Map-> run( sub { $_ }, [ 0 .. 9 ]);
MCE::Map-> finish;
print "\n", "@a", "\n";

say $MCE::VERSION;

__END__
## 1 started
## 3 started
## 2 started
## 4 started
## 2 completed
## 4 completed
## 1 completed
## 3 completed

0 1 2 3 4 5 6 7 8 9
1.901