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