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");



##</code><code>##

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