求教---return的使用

在学习return的操作中，书中有一处例题说
子程序&which_element_is用来找出betty在数组@names中的索引值。

my @names=qw/ will wiykd betty / ;
my $result =&which_element_is("betty", @names) ;
sub which_element_is{
        my ($what, @list)=@_;
        foreach (0..$#list){
                if ($what eq $list[$_] ) {
                        return $ _ ;
                }
        }
        -1;
}

但是运行程序后，发现无法取得预期的结果。
大家能不能帮我看看哪里有问题？谢谢。

你的语气结果是什么？？？

$ _中间有空格么？

所以一定要