ハッシュのリファレンスと無名ハッシュの違いを今日味わいました。 sub myfunc { my $s = shift; my(%ta) = ('a' => "a$s", 'b' => "b$s"); return %ta; } foreach (qw/x y z/) { %a = myfunc($_); push(@z, \%a); } foreach (@z) { print $_->{'a'} . ':' .…