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