$s = "a"; while (length($s) < 100) { eval $s; $s++ }