foreach my $key (keys %$temp) {
    $x->{$key} = $temp->{$key};
}