perl -le '$a="a";for(1..30){print$a++}'