if(in($var,$array))
 {
   print "Yes!!!!";
 }
 else
 {
   print "No!!!";
 }

sub in
{
 my $var = shift;
 my $ref = shift;

 foreach (@{$ref})
 {
  if($var == $_)
  {
    return 1;
  }
 }
 return 0;
}