In the spirit of timtowtdi, and if you're not pressed for time, you could do it with magical incrementation:

sub letter {
  my $offset = int rand 26;
  my $A = 'a';
  $A++ for 0..$offset;
  return $A;
}
[download]

§ George Sherston