my $ctr='a';
   print $ctr++ . "\n" foreach (1..26);