Select Code to Download

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

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