@citystates = map { $cities[$_], $states[$_] } (0..@cities-1);