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

##</code><code>##

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