# Try something like...
 #
 %hashmap = map {
	 my ($city, @dealers) = @$_;
	 $city => {map { $_ => 1 } @dealers};
 } @car_city_dealer_aoa;
 
 print Dumper(\%hashmap);