Programming question: PHP in_array equivalent in Perl?

[chicken]

Question for the geeks.

I'm trying to find a Perl way of doing PHP's in_array.

I feel very stupid right now. Help!

Comments

[chicken-cem.livejournal.com]

I thought of that. However, I was hoping for something less verbose. I suppose as kernelm says, I could wrap that in a subroutine (returning a boolean ) and then call it as if it were a built-in function. I suppose having used PHP for so long now, going back to Perl feels like too much work.

[paulv.livejournal.com]

Well, there's also this question in perlfaq4. It's probably right about using a hash instead of an array.

[chicken-cem.livejournal.com]

Yes, a hash really is better in this case. Funny I didn't think of it because I've used three other hashes in this program so far. Grr. Argh!

BTW, major points for making your example use Whedonverse content. Shouldn't all programming examples work this way? ;-)

sub buffyBotSubRoutine_boolean001 {
  # Are we allowed to pass a whole
  #  array as a param?
  my @nest = shift;
  my $wanted = "Spike";;
  foreach my $vampire (@nest) {
    if ($vampire eq $wanted) {
      buffyBotSubRoutine_shagHim($vampire);
    } else {
      buffyBotSubRoutine_stakeHim($vampire);
    }
  }
}