while (<DB1>) {
chomp;
    my ($root, $table, $header,$key) = split /\t/;
    $xml_data->{$root}{$table}{NEW1}{$key} = [$key];
}

while (<DB2>) {
chomp;
    my ($root, $table, $header,$key) = split /\t/;
    $xml_data->{$root}{$table}{NEW2}{$key} = [$key];
}

while (<DIFF>) {
chomp;
my ($root, $table, $key, $col, $old, $new) = split /\t/;
$xml_data->{$root}{$table}{MODIFIED}{KEY}{$key}{$col}{oldvalue} = [$old];
$xml_data->{$root}{$table}{MODIFIED}{KEY}{$key}{$col}{newvalue} = [$new];
}