@array = (A..Z);
print $array[rand($#array)];