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

MCE::Hobo->init(
    posix_exit => 1,
    on_finish => sub {
        my ( $pid, $exit, $ident, $signal, $error, $ret ) = @_;
        print "ident: $ident, key: ", $ret->{key}, "\n";
    }
);

MCE::Hobo->create('id1', sub {
    sleep 5;
    return { key => 'value1' };
});
MCE::Hobo->create('id2', sub {
    sleep 1;
    return { key => 'value2' };
});
MCE::Hobo->create('id3', sub {
    return { key => 'value3' };
});

# MCE::Hobo->waitall;

while ( MCE::Hobo->pending ) {
    MCE::Hobo->waitone;
}