#!/usr/bin/perl
open FH, "master.cfg" or die $!;
open FH1, "config1.cfg" or die $!;
while(my $line=<FH>){
chomp;
my %hash;
(my $key,my $value) = split /=/, $line;
$hash{$key} = $value;
while(my $line2=<FH1>){
chomp;
my %hash1;
(my $key1,my $value1) = split /=/, $line;
$hash1{$key} = $value;
open FH1, ">config1_new.cfg" or die $!;
if ($value1 != $value)