@{ $hash_copy } { @keys } = @{ $hash_ref } { @keys }; $hash_copy->{$_} = $hash_ref->{$_} for @keys;