perl -E 'say \\$x; say \\@x; say \\%x'