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


##</code><code>##

@$x{keys %$temp} = values %$temp;