open (OUT, "+>>$file") or die "Can't open $file: $!\n";
        while ( <OUT>) {
        print "$_";
#       $test=grep /$key/,$line;
        if (m/,$key/){
        print " found the line $_ \n";
my($key,$val)=split(/,/,$_);
        $newval=$val+1;
        $line =~ s/$val/$newval/g;
        print $line;
          }
          }