bash-2.03$ perl -e'$foo = "bar"; $$foo = 1; print "$bar\n"'
1