delete $array[$_] for @remove;
@array = grep {defined} @array;