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