my $skip_first;
my %Belfast_car_dealer_hash =  map { $skip_first++ ? ($_ => 1) : () } 
                               @{ $car_city_dealer_aoa[0] };
print Dumper \%Belfast_car_dealer_hash;