DB<1> sub lg :lvalue { *x };

  DB<2> $x="X"

  DB<3> $y="Y"

  DB<4> lg = *y

  DB<6> p $x
Y
  DB<7> $x="XX"

  DB<9> p $y
XX