NOのパラメータから、ファイルに入っている該当の行を削除処理したいのですが、
全く反応が無いです。。。
エラーも出ないため、いや、何よりも初心者なので原因がつかめません。
ご教授お願い致しますm(__)m

sub dl{
if(!open(OUT,"$file")){&error(err_file);}
@DATA = <OUT>;
close(OUT);
$count = @DATA;
$delcount = $count - $in{'NO'};

if($delcount ne ""){
$no = $delcount;
$DATA[$no] = "";
}

if(!open(IN,">$file")){&error(err_file);}
print IN @DATA;
close(IN);
}