在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时可以根据具体情况选择合适的方式。
