要將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相同的元素。
