Select Code to Download

use strict;
use warnings;
...
my %mergedHash = %{ merge( \%hash1, \%hash2 ) };

print Dumper \%mergedHash;

$VAR1 = {
          'db' => {
...
                    'host' => 'localhost'
                  }
        };