in reply to Adding values from an array to a hash

You can do this:
@locations{@locations} = (1) x scalar @locations

In Section Seekers of Perl Wisdom