#!/usr/bin/perl -w
use strict;
use Data::Dump qw(pp);

my $subargs = {a=>1, b=>2, subkey1 => 3};
my $r = { %$subargs, subkey1 => 'subval1', subkey2 => 'subval2'};

pp $r;
#prints:
#{ a => 1, b => 2, subkey1 => "subval1", subkey2 => "subval2" }