Copying arrays from one reference to another in perl

Question

I have a reference to an anonymous array and I want to create a reference to a copy of that array. Here's how I do it:

my $ref1 = ['a','b','c',];
my @arr = @$ref1;
my $ref2 = \@arr;

now $ref2 points to a copy of the array. However, I don't actually care about @arr. Is there a way to perform such a copy without an intermediate variable?

Thanks.

Answer 1

To create a reference to an array which is a copy of an array referenced by a variable $ref1, you can write:

my $ref2 = [@$ref1];

Now, $ref2 is the new reference.