perl -e 'foreach (aaaa...zzzz,AAAA..ZZZZ) { print $_,"\n";}'