open (FILE2, ">$file");
   foreach $setting (@settings) {
      foreach $item (@lines) {
         chomp($setting);
         ($setMode, $setSect, $setPair) = split(/ *\| */, $setting);
         ($setName, $setVal) = split(/ *= */, $setPair);
         print "$setMode||$setSect||$setPair\n";
         chomp($item);
         if ($item =~ m/ *= */) {
            ($temp1, $temp2) = split(/ *= */, $item);
            if ($setName eq $temp1) {
               $temp2 = $setVal;
               }
#problem area
               $lineout = "$temp1 = $temp2\n";
               print FILE2 "$lineout";
               print "$lineout";
#end problem area
             } else {
               print "$item\n";
               print FILE2 "$item\n";  
               }     
            }
close (FILE2);