my $temp = { bar => "def", baz => "ghi" };
foreach my $key (keys %$temp) {
    $x->{$key} = $temp->{$key};
}