foreach $line (@lines)
{
　　$del = 0;
　　local($no,$key) = split(/,/,$line);
　　if( ( $FORM{'delete'} eq $key ) ){
　　　if ( $no eq $FORM{'target'} ) {
　　　　$del = 1;
　　　}
　　　if ( $del == 0 ) {
　　　　push (@line2,$line);
　　　}
　　}
　　else {
　　　&error("キーが違います。");
　　}
}

字下げくらいしろ。
見易さが違うだろうが。

っといいつつ、俺はPerlに関しては初心者だからまだ分からんがな。
今アクセスログやってんねや。んじゃ