my @array = qw /fred barney betty dino wilma pebbles bamm-bamn/;
my $result=&which_element_is("dino", names);

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

}
}
print "99\n";
-1
}

print "$result\n"