$ perl -W -Mstrict -E 'my @alphanum = ( "A" .. "Z", "a" .. "z", -10 .. 10 ); say "@alphanum"'
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10