use strict;
use warnings;
use Data::Dumper;
my $a = { 
    'key1' => 'valdsgdjgf`',
    'key2' => 'val2',
};

my $b = { 
    'key3' => 'val3',
    'key4' => 'val4',
};

my $c = {%$a, %$b};
print Dumper($c);

OUTPUT:
$VAR1 = {
          'key2' => 'val2',
          'key4' => 'val4',
          'key3' => 'val3',
          'key1' => 'valdsgdjgf`'
        };