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");
[download]

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/
[download]