if ($array->[$_] == $number) {
  splice(@$array, $_, 1);
}