my $scalar = @array;
# or
my @array = $scalar;