$a = 'a';
while(length($a) < 3) {
  print $a++, "\n";
}