# caller:

my %h = (a => 1, b => 2);
something(\%h);
say $_ for keys %h;

# callee
sub something {
    my $arg = shift;
    $arg = {
       %arg,
       c => 3,
       d => 4,
    };
    # do more stuff with $arg here
}