foreach $key(keys(%FORM)){
open OLD, $file or die "Can't open $file:$!\n";
        open NEW, ">$file.new" or die "Can't open temp file $file.new: $!\n";
        my $found =0;
        while (<OLD>) {
            if ($FORM{$key}==1) {
                $found =1;
                next; 
            }
            print NEW; 
        }}
        if ($found) {
            
         rename ("$file.new", $file) or die "Can't rename new $file: $!\n";
        } else {
            print "I didn't find !\n";
        }