use strict ;
use warnings ;
use Data::Dumper ;
use List::Util qw { sum0 } ;
use Hash::Merge ;

my $VAR1 = {
 	# Same as before
        };
my $VAR2 = {
	# same as before
        };
my $merger = Hash::Merge->new('RETAINMENT_PRECEDENT');
my $VAR3 = $merger->merge( $VAR1, $VAR2 ) ;
foreach(keys %{$VAR3->{ total }}) {
	if ( ref $VAR3->{ total }->{ $_ } eq 'ARRAY' ) {
		$VAR3->{ total }->{ $_ } = sum0 @{$VAR3->{ total }->{ $_ }} ;
	}
}
print Dumper( $VAR3 ) ;