use strict;
use warnings;
use feature 'say';

use threads;
use Thread::Queue;

my $q = Thread::Queue-> new;

my @gang = map async( sub {
    while ( defined( my $f = $q-> dequeue )) {
        require IO::Handle;
        say threads-> tid;
    }
}), 1 .. 8;

$q-> enqueue( $_ ) for 1 .. @gang;
$q-> end;

$_-> join for @gang;