DB<28> sub ret { return $_[0] }

  DB<29> $a = []; print \$_,"\n",\$a and \$_==\$a and print "ALIAS" for ret($a);
SCALAR(0x8201604)
SCALAR(0x8201b08)