$one = "two";

%$one:: = %::;
print %$one . "\n";

%$one = %::;
print %$one . "\n";