$foo = "hello";
*a = \$foo;
$a = "bye";
print "$foo\n";