perl -le '$x=A;for(1..100){print $x++}'