Select Code to Download

# 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;
...
);

print $_, "\n" for @{ $citiesDealers{'Belfast'} };

Toyota
Chrysler
Ford