sub letter {
  my $offset = int rand 55;
  my $A = 65;
  chr($A + $offset);
}

sub city   {
  my $chars = 10 + int rand 30;
  my $city;

  $city .= letter for (1..$chars);

  $city;
}