正确检测Perl子程序参数是否为数组

我正在尝试将库从 Javascript 移植到 Perl，但是在检测数组参数时遇到了一些问题。

一个精简的示例（在 Javascript 中）如下所示：

const say = console.log;

function test(array, integer)
{
 if(Array.isArray(array))
 {
  say("First argument is array");
 }
 else
 {
  say("First argument is not array");
  array = [array];
 }
 for(let index = 0; index < array.length; ++index)
 {
  say(array[index]);
 }
 say("Second argument: ", integer);
 say("");
}

var a = ["foo", "bar"];
var t = "baz";
var i = 1024;

say("Testing on array");
test(a, i);

say("Testing on string");
test(t, i);

输出：

Testing on array
First argument is array
foo
bar
Second argument:  1024

Testing on string
First argument is not array
baz
Second argument:  1024

这是 Perl 版本：

use feature qw(say);

sub test 
{
 my ($text, $integer ) = @_;
 my (@array) = @_;  
 if(ref(@array) == "ARRAY") 
 {
  say("First argument is array");
 }
 else 
 {
  say("First argument is not array");
  @array = ($text);
 }
 for my $index (0 .. $#array)
 {
  say($array[$index]);
 }
 say("Second argument: ", $integer);     
}

my @a = ("foo", "bar");
my $t = "baz";
my $i = 1024;

say("Testing on array");
test(@a, $i);

say("Testing on string");
test($t, $i);

输出：

Testing on array
First argument is array
foo
bar
1024
Second argument: bar

Testing on string
First argument is array
baz
1024
Second argument: 1024

我还尝试了许多其他方法，例如在数组名称前加上反斜杠等等，但都无济于事。我相当肯定这在 Perl 中一定是可能的。或者这可能是语言本身的某种限制？

回答

test($i, @a);

sub test {
    my $i = shift;
    my @a = @_;
    ....
}

test($i, [ @a ]);

sub test {
    my $i = shift;
    my $aref = shift;
    my @a = @$aref;       # expand to normal array (not strictly needed)
    ....
}

my @a;
print ref(@a);

use strict;
use warnings;

Argument "ARRAY" isn't numeric in numeric eq (==)