my @array;
getreallyhugelist( \@array );
my @idxsToRemove= getnotashugelist();
my %toRemoveIdx;
@toRemoveIdx{@idxsToRemove}= (1)x@idxsToRemove;
@array= map { $toRemoveIdx{$_} ? () : $array[$_] } 0..$#array;