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; }