$ perl -Mstrict -Mwarnings -E '
> my @chars = q{0} .. q{9};
> push @chars, map { $_ => uc } q{a} .. q{z};
> say for @chars;'
0
1
2
3
4
5
6
7
8
9
a
A
b
B
c
C
...
y
Y
z
Z
$