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