#! perl -slw
use strict;
use threads;
use threads::shared;

my $sem :shared;
our $MAX //= 10;

my $array = 'list.txt';
open my $handle, '<', $array;
chomp(my @array = <$handle>);
close $handle;

my @threads;
for my $printme ( @array ) {
    push @threads, async{
        lock $sem;
        print $printme;
    };
    sleep 1 while threads->list( threads::running ) > $MAX;
}
$_->join for @threads;