perl,threads模块,join,传递参数问题

#!/usr/bin/perl
use strict;
use threads;
my $t1 = threads -> create (\&say_hellp, "zfw"); ##参数只能这样设置 要用\&形式，且后不可以有括号和参数
my $t2 = threads -> create (\&say_hellp, "zfh"); #参数要写在其他领域；

print "do something in the main thread.......\n";

my $t1_res = $t1 -> join();
my $t2_res = $t2 -> join();
print "T1 return the name is : $t1_res.....\n";

print "T2 return the name is : $t2_res.....\n";

sub say_hellp
{
   my @name =@_; #传递参数不管是几个 都只能用 @ 获取，不能用shift之类的获得
   sleep (1);
   print "@name is saying hello to you......\n";
   return (rand(10));
 }