splice @array,$_,1 for reverse @remove;