Select Code to Download

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

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