@letters = ('a'..'z'); # or ('A'..'Z') or ('a'..'z', 'A'..'Z'), etc. $letter = $letters[ int rand scalar @letters ];