DB<1> sub pr { print \$_[0] }
DB<2> $a="x"
DB<3> print \$a
SCALAR(0x852b11c)
DB<4> pr $a
SCALAR(0x852b11c)