523066680

你上一个问题什么情况了？别人回答后也不响应问题是否得到解决。

还有你这个帖子，
print $AOH[0]{husband}."!!\n";
AOH 应该改成 AoH

印象中是因为多层镶嵌直接表达的时候可以不加，比如 $a{b}{c} 或者 $a[1]{name}
间接使用的时候就必须加，比如
my $ref = $AoH[0];
printf $ref{husband}; 是无效的，需要使用 $ref->{husband} 或者 $$ref{husband}

但是为了方便记忆，建议在有引用的情况下统一加 $ 或者 ->

$AoH[0]->{husband}
${$AoH[0]}{husband}

523066680

回复 5# sxw

Perl 6 很成熟了吗？各种强大的模块不知道推出 perl6 版本没有
暂时不打算转。

523066680

回复 7# sxw

     保持观望。