use strict;
use warnings;
use MCE::Hobo;

MCE::Hobo->init( posix_exit => 1 );

my @hobos;

push @hobos, mce_async {
    sleep 5;
    return { ident => 1, key => 'value1' };
};
push @hobos, MCE::Hobo->create( sub {
    sleep 1;
    return { ident => 2, key => 'value2' };
});
push @hobos, MCE::Hobo->create( sub {
    my ($ident) = @_;
    return { ident => $ident, key => 'value3' };
}, 3 );

# MCE::Hobo->waitall;

while ( MCE::Hobo->pending ) {
    my $ret = MCE::Hobo->waitone->join;
    print "ident: ", $ret->{ident}, ", key: ", $ret->{key}, "\n";
}