Re: Random letters

[WilliamGunther]

Someone may have a better solution, but here is mine:

use strict;
my (@array, $y, $x, $rnd);
until ($y == 10) { push(@array, $y); $y++;}
   push(@array, qw(a b c d e f g h i j k l m n o p q r s t u v w x y z));   
#Make the @array

$x = 50;    #numer of numbers taken
while ($x > 0) {
  $rnd = int((rand) * 35) + 1;
  print $array[$rnd];
  $x--;
}