for my $location (@locations){
        next if ($location eq 'HEADING');
        
        my ($country,$state,$city) = split /,/, $location;
        push @countries, $country;
        push @states, $state;
        push @cities, $city;
 }
 @countries = uniq @countries;
 @states = uniq @states;
 @cities = uniq @cities;