perl 編程 push(@data ,[@array]) 之後pop出來@array的值改變

my?@b?=?(11,?12,?13);

my?@c?=?(21,?22,?23);

my?@z;

push?@z,?[@a];#註意這裏放進去的是引用

push?@z,?[@b];

push?@z,?[@c];

@tmp?=?pop?@z;#只是將數組的引用彈出了

print?@tmp,?"\n";

$tmp?=?pop?@z;#取出引用

print?@$tmp,?"\n";#取出內容