my $i = 0;
while ($i < @array) {
  if (REMOVE) { splice @array, $i, 1 }
  else { ++$i }
}