在Perl中，可以通過以下方式將數組賦值給變量：
my @array = (1, 2, 3, 4, 5);
my $var = @array; # 數組的元素個數賦值給變量
在這個例子中，變量$var將被賦值為數組@array的元素個數，即5。
my @array = (1, 2, 3, 4, 5);
my $var = \@array; # 數組的引用賦值給變量
在這個例子中，變量$var將被賦值為數組@array的引用。可以使用$var->[index]的方式訪問數組的元素。
my @array = (1, 2, 3, 4, 5);
my ($var1, $var2, $var3) = @array; # 將數組的前三個元素賦值給變量
在這個例子中，變量$var1將被賦值為1，變量$var2將被賦值為2，變量$var3將被賦值為3。
這些是將數組賦值給變量的常見方法，在使用Perl時可以根據具體情況選擇合適的方式。
