DB<13> my $x = 42; *b = \$x; {local $b= 666; say "$b = $x"}; say "$b = $x"
666 = 42
42 = 42