Select Code to Download

>>> a = [0] * 10
>>> a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0]

>>> a = [1,2]
>>> b = [a] * 5
...
>>> a[0] = 2
>>> b
[[2, 2], [2, 2], [2, 2], [2, 2], [2, 2]]

my @a = (1, 2);
my @b = (\@a) x 5;
$a[0] = 2;
print Dumper \@b;