$city = join '', map { (a..z,A..z)[int rand 52] } (1..10+int rand 30);