要将Perl数组赋值给变量，可以使用引用符号来创建一个指向数组的引用，并将该引用赋值给变量。
以下是一个示例代码：
my @array = (1, 2, 3, 4, 5);
my $array_ref = \@array;
在这个示例中，首先创建了一个包含数字1到5的数组。然后，使用\@array创建一个指向该数组的引用，并将该引用赋值给变量$array_ref。
现在，变量$array_ref就包含了指向数组的引用，可以通过解引用符号@{}来访问该数组的元素。例如，要打印数组的第一个元素，可以使用以下代码：
print $array_ref->[0];
这将输出1，即数组的第一个元素。
注意：在Perl中，还可以通过直接将数组赋值给变量来实现类似的效果。例如，可以使用以下代码将数组赋值给变量：
my @array = (1, 2, 3, 4, 5);
my @new_array = @array;
这将创建一个新的数组@new_array，并将@array中的元素复制到@new_array中。这样，变量@new_array将包含与@array相同的元素。