前に似たような質問をしていますが
その続きみたいなものですが、
carg.cgiの始めの方で

		while (<ORDER>) {
			chomp;
			if (/^#|^$/) { next; }
				if (/^\*(\d+)/) {
					$DELETED{$1} = 1;
					$del ++;
				}else {
					 push(@CARGO, $_);
				}
とありますが、それを
		while (<ORDER>) {
			chomp;
			if (/^#|^$/) { next; }
				if (/^\*(\d+)/) {
					$DELETED{$1} = 1;
					$del ++;
				}
				push(@CARGO, $_);
		}
としてもよさそうに思えますが、だめですね。
					$DELETED{$1} = 1;
					$del ++;
の部分は単にフラグを立てて、カウントしているだけと思いますが、
削除押したとき、空のデータが入るのでしょうか、買い物カゴには
$code.$name,$feeは削除されますが、＊、円それと削除ボタンだけが取り残されます。
なぜだか分かりません。
教えていただければ幸いです。

投稿してから分かりました。
			if (/^#|^$/) { next; }
				if (/^\*(\d+)/) {
					$DELETED{$1} = 1;
					$del ++;
					next;
				}
				push(@CARGO, $_);
		}
と　初心者用に書換えました。
$COOKIE{'CART'}\.bk6の
*(\d+)の行を読み飛ばすという意味だったんですね。
お騒がせしました。