# This is the goal
#%Belfast_car_dealer_hash = ("Toyota"=> 1,
# "Chrysler" => 1);
# "Ford" => 1);
####
my %Belfast_car_dealer_hash = map { $_ => 1 } @dealers[1,3,4];
##
##
$VAR1 = {
'Chrysler' => 1,
'Toyota' => 1,
'Ford' => 1
};
##
##
use strict;
use warnings;
my @dealers = ( "Nissan", "Toyota", "Tesla", "Chrysler", "Ford", "General Motors" );
my %citiesDealers = (
'Belfast' => [ @dealers[ 1, 3, 4 ] ],
'Dublin' => [ @dealers[ 2, 3, 0 ] ],
'Cork' => [ @dealers[ 0, 3 ] ],
'Derry' => [ @dealers[ 1, 4, 2 ] ],
'Tralee' => [ @dealers[ 2, 1, 0, 5 ] ]
);
print $_, "\n" for @{ $citiesDealers{'Belfast'} };
##
##
Toyota
Chrysler
Ford