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