DEL: foreach $i (0 .. $#array) {
foreach(@no) { next DEL if ($_ ==$i) }
@new[$#new+1] = $array[$i];
}