$letter = ('a' .. 'z')[26 * rand]; print $letter;