我想将库从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中必须是可能的。还是这是语言本身的某种局限性？