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 Compress::Zlib;
        say threads-> tid;
    }
}), 1 .. 4;

select( undef, undef, undef, 0.1 ) or $q-> enqueue( $_ ) for 1 .. 4;
$q-> end;
$_-> join for @gang;