新手请教一个子程序问题

#!/usr/bin/perl

my @names=qw/fred barney betty dino wilma pebbles bamm-bamm/;
my $result=&which_element_is("dino",@names);
sub which_element_is
{
        my($what,@array);
        foreach(0..$#array)
        {
                if($what eq $array[$_])
                {
                        return $_;
                }
        }
        2;
}

print $result;

为什么打印出来不是dino在数组@names中的脚标值呢？
或者需要怎么改改？请指点。

my($what,@array)=@_;

回复 zhangblueant


    详细些说就是，参数没有传递给子函数...