Perlで条件に合うよう,ソートするプログラムを教えてください. 1行目を比較して,重複する配列で且つ添え字の若いもの(@array = <DATA>)を削除します. 以下結果です Z 100 10 10 SC 200 5 9 SA 200 70 5 CC 100 100 9 BB 300 50 2 AA 100 70 5 c 5 0 0 9 上記の結果を元に,2行目の数字を比較して,降順にソートします. BB 300 50 2 SC 200 5 9 SA 200 70 5 Z 100 10 10 CC 100 10 9 AA 100 70 5 c 5 0 0 9 上記の結果を元に,2行目が,同一の場合のペアのみを選び出して,3行目の数字を比較して,2行目の並びは崩さず降順にソートします. BB 300 50 2 SA 200 70 5 SC 200 5 9 AA 100 70 5 CC