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

##</code><code>##

my @letters = ('a'..'z', 'A'..'Z');
print $letters[int rand @letters], "\n";