@で始まる配列オブジェクトに、@で始まる配列オブジェクトを代入するだけでコピーできる。
配列をコピーする - Perl - とあるエンジニアの闇歴史帳
参照渡しではなく、値渡しなので、まるごとコピー。
そうなっているかチェックするために、コピー後に$ary1[0]と$ary2[2]の値を変更して影響が出ないかどうかをみている。
$ perl array.pl 10 20 30 10 20 30 40 20 30 10 20 50 $
変更したからもう一方に影響されることはなかった。
ちゃんとコピーになっている。
Sample/perl/array/copy/src/array at master · bg1bgst333/Sample · GitHub