>>199
途中で書き込んでしまいました。。

リファレンスのアドレスを変えずに沢山の要素を追加したいです。

①これではアドレスが変わってしまいます。
my $hoge = { hoge => 'HOGE' };
print "$hoge\n";
$hoge = {
%$hoge,
huga => 'HUGA',
piyo => 'PIYO',
};
print "$hoge\n";

②これだとアドレスは変わりません。
my $hoge = { hoge => 'HOGE' };
print "$hoge\n";
$hoge->{fuga} = 'FUGA';
$hoge->{piyo} = 'PIYO';
print "$hoge\n";

--------------------------------
①のようにできると書くのが楽だし、1処理で済むので処理も早いのではないかと思っています。
しかしアドレスを変えずにリファレンスに追加するには②の方法しかないのでしょうか。