printf "%d: %s, %s\n", ++$n, $_, $cities{ $_ } for @sorted;