foreach my $thread (threads->list(threads::joinable))
{ $thread->join(); }