调用子程序来返回 某个字段在数组中的位置

my @names = qw / fred test dfdf dino abcde/;
my $result=&max("dino",@names);
sub max {
	my($what,@array)=@_;
	foreach(0..$#array) {
		if ($what eq $array[$_]) {
			return $_+1;
			}
		}
		-1;
	}
	
	
 
print $result,"\n";