まだ間違ってるなぁ、やっぱハッシュ使わないと
@no{@no}= (1) x @no;
for (0 .. $#array){
$no{$_} and next;
push(@result, $array[$_]);
}