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