>>72
こーかな

foreach(sort {$b <=> $a} @no) {
splice(@array, $_, 1);
}

重複した値に注意しなされ