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

@countries = keys %countries;
@states    = keys %states;
@cities    = keys %cities;