perlでききたいことがあるのですが、

foreach(@hairetu){
　ここで評価して評価によってはこのlineの配列を削除する
}

ってことやりたいのですが、lineをカウントしていって
spliceで削除しているのですがもっと簡単にできないでしょうか？
すごい非効率的なことをやっているような気がしてならないのですが。