相关疑难解决方法(0)

我正在学习Perl的多线程.我的代码:

use warnings;
use threads;
use threads::shared;

$howmany = 10;
$threads = 5;

$to = int($howmany / $threads);

for (0 .. $threads) {$trl[$_] = threads->create(\&main, $_);}
for (@trl) {$_->join;}

sub main {
    for (1 .. $to) {
        print "test\n";
    }
}

exit(0);

我想在线程中打印单词test $howmany times $threads.此代码打印测试 12次.问题出在哪儿？