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

##</code><code>##

$locations{$_}++ for @locations;