my @keep = (0..$#array);
$keep[$_] = undef
  for (@arrayindex);

@array = @array[grep {defined $_} @keep];