レスキューさんのCSVエディタを改造して利用しています。

HTMLからフォームのcheckboxにチェックされたデータ行について
同一のデータに変更しようとしましたが、上手く行きません。

#############################################
foreach $num (@CHECK) {              #@CHECK内には、チェックされたデータ番号を格納。
	foreach $line (@OUT) {           #@OUT内には、全データを格納。
		&split;                           #$line内のCSVデータを,により分割。
		if ($CODE == $num) {
			$editvalue = "$d\,$CODE\,CHECKED\n";  #３コ目のデータを「CHECKED」に変更。
			push (@DATA,$editvalue);
		} else {
			push (@DATA,$line);
		}
	}
}
##########################################

これを実行すると、@CHECKに含まれるデータの個数分、
全データが繰り返されたファイルが出来上がってしまいます。

どのようにしたら、繰り返される事なく、正常に変更できるでしょうか。
ご助言よろしくお願いいたします。

%CHECKのキーにチェックされた番号を格納。
$CHECK['100'} = true;


	foreach $line (@OUT) {           #@OUT内には、全データを格納。
		&split;                          #$line内のCSVデータを,により分割。
		if ($CHECK{"$CODE"}) {
			$editvalue = "$d\,$CODE\,CHECKED\n";  #３コ目のデータを「CHECKED」に変更。
			push (@DATA,$editvalue);
		} else {
			push (@DATA,$line);
		}
	}

こんなのはどうでしょう？

simさん

長い間悩んでいたものをあっさりと解決していただきまして、悔しい限りです。
私もそんな人になれるようにがんばります。

ありがとうございました！