$first = ord("a");
for (my $x=0; $x < 10; $x++)
{
   print chr($first+$x). " ";
}