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

my $number = MCE::Shared->scalar(0);
my $start = time;

sub do_subroutine { $number->incr for 1..1e5; }

MCE::Hobo->create('do_subroutine') for 1..10;
$_->join for MCE::Hobo->list; # same as MCE::Hobo->wait_all

printf "number  %d\n", $number->get;
printf "seconds %.03f\n", time - $start;

__END__

number  1000000
seconds 2.087