my @array = (1 .. 1000); my @toremove = (7,1,6,5,3); for (sort { $b <=> $a } @toremove) { splice @array, $_, 1; }