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

##</code><code>##

my %Belfast_car_dealer_hash = map { $_ => 1 } @dealers[1,3,4];

##</code><code>##

$VAR1 = {
          'Chrysler' => 1,
          'Toyota' => 1,
          'Ford' => 1
        };

##</code><code>##

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'} };

##</code><code>##

Toyota
Chrysler
Ford