use strict;
use vars qw(@array $exist);

@array = qw(dog cat flea bird ferret fish bear);
$exist = sub{my($ptr);foreach $ptr(@{$_[1]}){return(1) if ($ptr eq $_[0]);}};

print ($exist->("cat",\@array),"\n");
print ($exist->("pig",\@array),"\n");