$s = "a"; for (1..702) { print $s++, "\n"; }