试验的：C:\Users\Administrator>perl -e "@a=(1,2); $b=[@a]; @c=@$b ; print \"@a : $b : @c \" "1 2 : ARRAY(0xa031c20) : 1 2建议将my @prime_r = @neme_hasg{$str};修改为my @prime_r = @$neme_hasg{$str};试试
