$X = "x";
@array = ("y", "z", "x");

$i = 0;

while (($i <= $#array && ($array[$i] ne $X)) {  
  ++$i;
}

if ($i <= $#array) { # searched it & eureka
  return 1; # for true;
}
return 0; # for false;
[download]