perl -E '@arr=(\\$x,\\@x,\\%x);say \\$x;say \\@x;say \\%x'

##</code><code>##

REF(0x8e8f58)
REF(0x8e8f58)
REF(0x8e8f58)

##</code><code>##

perl -E '@arr=(\\$x,\\@x,\\%x);say join"\n",\\$x,\\@x,\\%x'

##</code><code>##

REF(0xdc3f58)
REF(0xdc3e38)
REF(0xde0618)

##</code><code>##

perl -E '@arr=(\\$x,\\@x,\\%x);say $arr[0];say $arr[1];say $arr[2]'

##</code><code>##

REF(0x19b4d48)
REF(0x19b4b98)
REF(0x19d13e8)