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