perl -e'print A..$_,$/for A..Z'