@で始まる配列オブジェクトに、@で始まる配列オブジェクトを代入するだけでコピーできる。配列をコピーする - Perl - とあるエンジニアの闇歴史帳参照渡しではなく、値渡しなので、まるごとコピー。 そうなっているかチェックするために、コピー後に$ary1[0]…