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

for (1..15) threads->new(\&init);
$_->join for threads->list;

sub qload
{
 # загружает некоторые данные в конец очереди
}

sub init
{
 my $passpair = &qload;
}