for my $job ( @jobs ) {
    async \&dojob, $job;
}
while( threads->list( 1 ) ) {
    $_->join for threads->list( 0 );
}