$ perl -Mstrict -Mdiagnostics -e'my $foo = \my $bar; $bar = "baz"; print $$foo, $/'
baz
$