线程中共享引用的变量

#!perl
# 把一个hash array共享的办法
use threads;
use threads::shared;
use Thread::Queue;
use Data::Dumper;
my $ra_list;
my $r=[{id=>1,name=>'a'},{id=>2,name=>'b'}];
for (my $i=0;$i<@$r;$i++){
    eval "our \%t$i";
    share(%{"t$i"});
    %{"t$i"}=%{$r->[$i]};
    push @$ra_list,\%{"t$i"};
}
print Dumper $ra_list;
foreach(1..5){
    $t[$_]=threads->create(\&test,$_);
}
foreach(1..5){
    $t[$_]->join;
}
print Dumper $ra_list;
sub test {
    my $id = shift;
    print Dumper $ra_list;
    $ra_list->[0]->{'pid'}=$_;
    $ra_list->[0]->{'id'}++;
}