трабл perl
 

use threads;

@qq=(1,2,33,44,555,666,7777,8888,9999,1010);
threads->create(\&puk(@qq));
sleep(4);

sub puk {
foreach my $pyss(@_){
if($dyndyk==55){goto(proskok);}
print"$pyss!!\n";
proskok:
$num--;
}
}

вот при выполнении все выполняется но отдельный поток не создается

пишет

C:\>11.pl
1!!
2!!
33!!
44!!
555!!
666!!
7777!!
8888!!
9999!!
1010!!
Thread failed to start: Not a CODE reference at C:\11.pl line 4.


4 это строка с созданием потока -- подозреваю что наверное массив @_ существует только один хоть и идет как константа поэтому типо нельзя их в потоках юзать а нужно

что посоветуете

Может так?

угу пашет

спасибо

топ можете затереть нафиг =)