多次元配列から重複を削除

Perlにて$f[i][j]のような2次元配列でデータを格納しています。
ここの[i]列には重複したデータが入っているので、
それを排除して[i]列の重複なしの配列を新たに作りたいのですが
うまくいきません。

for ($j=0; $j<= $index; $j++){
if($chlist[j]==$f[$i][0]){
$chlist[j]==$f[$i][0];
last;
}
}

こんな感じで作ってみたのですが永遠にデータが入りません。

No.2 回答者： ryu_chan 回答日時： 2008/12/18 23:39

こんな感じで重複データを削除できると思います。

@chlist = map { my %seen; [grep !$seen{$_}++, @$_] } @f;

No.1 回答者： Tacosan 回答日時： 2008/12/09 19:43

うれしいかどうかは別としてハッシュのキーが (そのハッシュの中で) 一意であることを使うとプログラム上は簡単.