for 15 threads- new init _- join for threads- list sub qload загружает

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
for (1..15) threads->new(\&init);
$_->join for threads->list;
sub qload
{
# загружает некоторые данные в конец очереди
}
sub init
{
my $passpair = &qload;
}