#!/usr/bin/perl 

use strict;
use Data::Dumper;

my @dealers = ("Nissan","Toyota","Tesla","Chrysler","Ford","General Motors");
my @cities = ("Belfast","Dublin","Cork","Derry","Tralee");
my %hashmap = ();


my @car_city_dealer_aoa = (
                          [$cities[0],$dealers[1],$dealers[3],$dealers[4]],
                          [$cities[1],$dealers[2],$dealers[3],$dealers[0]],
                          [$cities[2],$dealers[0],$dealers[3]],
                          [$cities[3],$dealers[1],$dealers[4],$dealers[2]],
                          [$cities[4],$dealers[2],$dealers[1],$dealers[0],$dealers[5]]);

# This is the goal
#%Belfast_car_dealer_hash = ("Toyota"=>  1,
#                            "Chrysler" => 1);
#                            "Ford" => 1);


%hashmap =  map {
                   my $arrayelem = $_;
                   my $arraysize = scalar(@{$_});
                   $arrayelem->[$_] => 1 for (1..$arraysize-1)
               } $car_city_dealer_aoa[0];


print;
print Dumper(%hashmap);