BBQの中の人です。
登録装置にて、どうも頭の中が固まりきって、あひゃひゃになっております（呆）
-･-･ --･- -･-･ --･- -･-･ --･- -･-･ --･-
# 期限切れを排除して、重複するリモホ類を排除して、、、
my %IP4value;
my %MD5value;
@Proxy60 =
　map { $_->[0] } # 元に戻す。
　grep { !$IP4value{$_->[4]}++ } # 重複削除。 IP4 で比較。
　grep { !$MD5value{$_->[5]}++ } # 重複削除。 MD5 で比較。
　grep { $_->[1] ne 'D' }
　map {
　　push @Deletelist, $_->[0] and $_->[1] = 'D' if $_->[1] == 0; # 削除（削除）
　　push @Expirelist, $_->[0] and $_->[1] = 'D' if $_->[1] < $Now_Time; # 期限切れ（削除）
　　push @Allowlist, $_->[0] if $_->[6] eq 'Allow'; # 除外指定
　　push @DDNSlist, $_->[0] if $_->[6] eq 'DDNS'; # DDNS
　　$_
　}
　map { [ $_, (split /<>/) ] } # 一旦リファレンスに
　@Proxy60;

@Proxy60 には「<>区切り(^^;)」なデータが入っています。
有効期限(time値)<>登録日(time値)<>登録者<>ホスト/IPaddrress<>MD5値<>status<>コメント<>
-･-･ --･- -･-･ --･- -･-･ --･- -･-･ --･-
このうち（削除）分がどうしても削除されなくって困っております。

ここでスカタンしてるぞ！と言う部分がありましたらご指摘を戴けるとありがたいですですm(_ _)m深謝
env.:FreeBSD cobra2245.maido3.com 6.2-RELEASE-p7
perl:This is perl, v5.8.7 built for amd64-freebsd (with 2 registered patches, see perl -V for more detail)