Select Code to Download

%locations = map{ $_ => 1 } ( @locations );

%locations = map{ $_ => 1 } ( @locations, keys %locations );