Your question is quite cryptic!

Do you want to alias to the returned package var?

  DB<144> $x=42
 => 42

  DB<145> sub retg { *x }

  DB<146> *y= ret()

  DB<147> $y
 => 42

  DB<148> $y=666
 => 666

  DB<149> $x
 => 666
[download]