You can replace this little loop

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

with

@$x{keys %$temp} = values %$temp;
[download]