for (0 .. $#array) 
{ 
     if ($x == $array[$_])
     { 
          splice (@array, $_, 1);
          last;
     }
}