my @letters = ('a'..'z');
my $random_letter = $letters[int rand @letters];