my @x = qw(1 2 3 4 5 6);
my @y = @x;

print "y List:\n" . join("\n", @y) . "\n";

$y[1] = '500';
print "y List after:\n" . join("\n", @y) . "\n";
print "x List after:\n" . join("\n", @x) . "\n";

y List:
1
2
3
4
5
6
y List after:
1
500
3
4
5
6
x List after:
1
2
3
4
5
6