Как "отсоединить" ссылку на массив Perl от указанной переменной

Question

В Perl 5.10.1:

#!/usr/bin/perl

my @a = (1, 2, 3);
my $b = \@a;
print join('', @{$b}) . "\n";
@a = (6, 7, 8);
print join('', @{$b}) . "\n";

Это печатает 123, затем 678. Однако я хотел бы получить 123 оба раза (то есть переназначение значения @a не изменит массив, на который ссылается $b). Как я могу это сделать?

Answer 1

Сделать ссылку на копию @a.

my $b = [ @a ];

Answer 2

Бреттер использует dclone для глубокого клонирования ссылок, указывающих на анонимные структуры данных.