子程序中的return

[root@mysql1 perl]# cat 21.pl 
#!/usr/bin/env perl


use strict;
use warnings FATAL => 'all';


sub which_element_is {


  foreach(@_) {
  print $_,"\n";
  }


  my($what,@array)=@_;
  print $#array,"\n";
  foreach (0..$#array) {
    if($what eq $array[$_]) {
      print $_,"\n";
      return $_;
    }
  }
  -1;
}


my @names=qw/ fred barney betty dino wilma pebbles bamm-bamm /;
my $result=&which_element_is("dino",@names);
print "the result is $result\n";




























[root@mysql1 perl]# ./21.pl   
dino
fred
barney
betty
dino
wilma
pebbles
bamm-bamm
6
3
the result is 3
[root@mysql1 perl]#