@letters=(A..Z,a..z);
$total=@letters;
$newletter = $letters[rand $total];