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;


##</code><code>##

D:\>perl test181110.pl
2
3
1
4

D:\>perl test181110.pl
2
4
3
1

D:\>perl test181110.pl
3
2
1
4

D:\>perl test181110.pl
String found where operator expected at C:/strawberry-perl-5.28.0.1-32bit-PDL/pe
rl/lib/IO/Compress/Base/Common.pm line 514, near "croak "$sub: $p->[IxError]""
        (Do you need to predeclare croak?)
Thread 3 terminated abnormally: syntax error at C:/strawberry-perl-5.28.0.1-32bi
t-PDL/perl/lib/IO/Compress/Base/Common.pm line 514, near "croak "$sub: $p->[IxEr
ror]""
BEGIN not safe after errors--compilation aborted at C:/strawberry-perl-5.28.0.1-
32bit-PDL/perl/lib/IO/Compress/Base/Common.pm line 520.
Compilation failed in require at C:/strawberry-perl-5.28.0.1-32bit-PDL/perl/lib/
Compress/Zlib.pm line 10.
BEGIN failed--compilation aborted at C:/strawberry-perl-5.28.0.1-32bit-PDL/perl/
lib/Compress/Zlib.pm line 10.
Compilation failed in require at test181110.pl line 11.
1
4
2

D:\>perl test181110.pl
Thread 3 terminated abnormally: Bareword "HIGH" not allowed while "strict subs"
in use at C:/strawberry-perl-5.28.0.1-32bit-PDL/perl/lib/IO/Compress/Base/Common
.pm line 868.
BEGIN not safe after errors--compilation aborted at C:/strawberry-perl-5.28.0.1-
32bit-PDL/perl/lib/IO/Compress/Base/Common.pm line 1038.
Compilation failed in require at C:/strawberry-perl-5.28.0.1-32bit-PDL/perl/lib/
Compress/Zlib.pm line 10.
BEGIN failed--compilation aborted at C:/strawberry-perl-5.28.0.1-32bit-PDL/perl/
lib/Compress/Zlib.pm line 10.
Compilation failed in require at test181110.pl line 11.
1
2
4

D:\>perl test181110.pl
1
3
1
2

D:\>perl test181110.pl
1
3
2
4