多线程问题

多线程问题
我要完成的操作类似这样：
@aaa 我这里存的是地址：

foreach (@aaa){
中间的由线程处理，来加快执行速度
}

sub bb{
#这里的我是要在网上进行取数据
print $_[1];
}

在http://search.cpan.org/~nwclark/perl-5.8.7/ext/threads/threads.pm看了一下，不是很明白如何使用，请大虾帮帮指点指点.

foreach (@aaa){-- #中.
foreach (@aaa){
#中间的由线程处理，来加快执行速度
my $th=threads->new("bb",$_);
}

sub bb{
#这里的我是要在网上进行取数据
print $_[1];
}

use threads;--my @tid;.
use threads;
my @tid;
@aa=("thread 1 n","thread 2 n","thread 3 n");
foreach my $tmp(@aa){
my($thr)=threads->create("bb",$tmp);
if($thr){
push @tid,$thr->tid() ;
print $thr->tid() ."=================n";
}}

foreach my $tmp(@tid){
my ($thr)=threads->object($tmp);
$thr->join();
}



sub bb{
my ($x)=0;
while(1){
print $_[0];
sleep 2;
last if $x++>10;
}

}