>>519
それはどうやって使うんですか？
下のようにしても上書きされてしまいます。
%hash = test("ほげ", $str =~ /(\S+)-(\S+)-(\S+)/);
%hash = test("ふが", $str =~ /(\S+)-(\S+)-(\S+)/);

$hash{名前}{要素}の用に使いたいです。
ブロックは$1のスコープを狭める為に使いました。