$s = "a"; for (1..702) { print $s++, "\n"; } #### a b c ... z aa ab ac ... az ba bb bc ... zz