Select Code to Download

$b= "B";
*y= *b;
print "$y\n";
*y= \*b;
print "$y\n";

$b= "B";
$x= *b;
*y= $x;
...
Produces:
*main::b: B
GLOB(0x1bb2b1c): B