my $reduced_entries = [];
  my $i=0;
  for my $entry (@$entries) {
    push @$reduced_entries, $entry unless (grep $_ == $i, @remove);
    $i++;
    }
  $entries = $reduced_entries;