返回元素在数组中的索引值

use warnings;
sub whichIs{
 my ($str, @list) = @_;
 foreach (0..$#list){
  print $list[$_], "\n";
  if ($str eq $list[$_]){
   return $_;
  } 
 }
 -1;
}
my @names = qw / a b c fda wer fda fwefwkjl xxx dfao/;
my $wanna = "xxx";
print "\$wanna - $wanna is the ", &whichIs($wanna, @names), " of @names.\n";

#############################################################################
C:\Perl\learn>"which is.pl"
a
b
c
fda
wer
fda
fwefwkjl
xxx
$wanna - xxx is the 7 of a b c fda wer fda fwefwkjl xxx dfao.