my $foo = \"foo";
my $bar = \"bar";
 
print "$$foo\n";
change_ref($foo);
print "$$foo\n";
 
sub change_ref {
    $_[0] = $bar;
}

__OUTPUT__
foo
bar