$GlobalName = "Clinton";

sub getRefToGlobalName {
	return \$GlobalName;
}

print "Before: " . ${ getRefToGlobalName() } . "\n";

$ref = getRefToGlobalName();
$$ref = "Gore";

print "After: " . ${ getRefToGlobalName() } . "\n";

# Also prints
Before: Clinton
After: Gore