use strict;
use warnings;
use Data::Dumper;
my @x = (1,2,3);
my $y;

@$y = @x;
$x[1] = 9;
print Dumper $y;

$y = \@x;
$x[1] = 10;
print Dumper $y;