perl -e '$a="bla"; print sprintf "%s %p %s",$a,$a,\$a;'
bla 8171078 SCALAR(0x8171078)