use strict;
use Data::Dumper;
use Data::Compare;

print "Hello, World...\n";

my $old = {
          '2-43' => {
                      'transid' => '114337799',
                      'vrec' => 'NAM03',
                      'taxamt_vcd' => '0',
                      'hub' => 'HUB11',
                      'seqnum' => '43',
                      'dch_detail_recid' => '229658296',
                      'sdrpretax_vcd' => '10',
                      'transid_recpay' => '114337799z',
                      'dchdetaildate' => '06-JUN-10',
                      'sdrposttax_vcd' => '10',
                      'vpay' => 'GINCL',
                      'virtual_agree_id' => '2'
                    },
        };

my $new = {
          '2-43' => {
                      'transid' => '114337799',
                      'vrec' => 'NAM03',
                      'taxamt_vcd' => '0',
                      'hub' => 'HUB11',
                      'seqnum' => '43',
                      'dch_detail_recid' => '229658296',
                      'sdrpretax_vcd' => '10',
                      'transid_recpay' => '114337799z',
                      'dchdetaildate' => '06-JUN-10',
                      'sdrposttax_vcd' => '10',
                      'vpay' => 'GINCL',
                      'virtual_agree_id' => '2'
                    },
          '2-44' => {
                      'transid' => '114337799',
                      'vrec' => 'NAM03',
                      'taxamt_vcd' => '0',
                      'hub' => 'HUB11',
                      'seqnum' => '44',
                      'dch_detail_recid' => '229658296',
                      'sdrpretax_vcd' => '10',
                      'transid_recpay' => '114337799z',
                      'dchdetaildate' => '06-JUN-10',
                      'sdrposttax_vcd' => '10',
                      'vpay' => 'GINCL',
                      'virtual_agree_id' => '2'
                    },
        };