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

##</code><code>##

$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