DB<1> x ref(\($x=5))
0  'SCALAR'
  DB<2> x ref(\($x=\$x))
0  'REF'
  DB<3> x ref(\*x)
0  'GLOB'
  DB<5> x ref(\substr("foo",1,1))
0  'LVALUE'

##</code><code>##

perl -we '$x = \$y; for $z ( 2, \5, *u, vec(2,1,1) ) { $y = $z; warn ref($x), " ", $x; }'

##</code><code>##

SCALAR SCALAR(0x813c4d0) at -e line 1.
REF REF(0x813c4d0) at -e line 1.
GLOB GLOB(0x813c4d0) at -e line 1.
SCALAR SCALAR(0x813c4d0) at -e line 1.