$GlobalName = "Clinton";

sub getGlobalName {
	return($GlobalName);
}

sub getRefToGlobalName {
	return \$GlobalName;
}

print "Before: " . getGlobalName() . "\n";

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

print "After: " . getGlobalName() . "\n";

#prints
Before: Clinton
After: Gore