printf "%d => %d\n", $_->tid, $_->join for @threads;

##</code><code>##

push @threads, async { sleep 3*$i+5; $i };