新手问的数组问题

my@names = qw /fred barney betty dinoWilma pebbles bam-bamm/;
my $result = &which_element_is(“dino”, @names);
sub which_element_is{
my($what, @array) = @_;
foreach(0..$#array){ #@array 元素的索引
if($waht eq $array[$_]){
return $_; #找到既返回
}
}
-1; #没有找到元素（此处是可选的）
}

Perl 语言入门(第四版) 的一个例子，4.9返回操作
为什么我的if语句用的是$array[$_],我认为是@array[$_]。

$array[$_] 返回的是个 scalar @array[$_] 返回的是个 list ，这里结果没什么区别，但你要知道你做了什么

恩，谢谢楼上，我觉得我数组还是没看明白。还得再看看