$GlobalName = "Clinton";

sub getRefToGlobalName {
	return \$GlobalName;
}

$ref = getRefToGlobalName();

print "Before: " . $$ref . "\n";

$$ref = "Gore";

print "After: " . $$ref . "\n";

# Also prints
Before: Clinton
After: Gore