$b= "B";
$x= *b;
*y= $x;
print "$x: $y\n";
$z= \*b;
*y= $z;
print "$z: $y\n";
__END__
Produces:
*main::b: B
GLOB(0x1bb2b1c): B