Perl プログラミングの基本的な事柄のメモ。
ハッシュのリファレンスのリストをコピーしても
リファレンスの中身は同じ。
後で一瞬で説明するためにテストコードで実証。

ソースコード：

my @foos;
push @foos, {num => 2};
push @foos, {num => 1};

print join(", ", map {$_->{num}} @foos), " (foos)\n";

my @bars = @foos;

$bars[0]->{num} = 3;
$bars[1]->{num} = 4;

print join(", ", map {$_->{num}} @bars), " (bars)\n";
print join(", ", map {$_->{num}} @foos), " (foos)\n";

実行結果：

2, 1 (foos)
3, 4 (bars)
3, 4 (foos)