sub state {
    pop=~/^(A[KLRZ]|C[AOT]|D[CE]|I[ADLN]|K[STY]|M[ADEINOST]|N[CDEHJMVY]|O[HKR]|S[CD]|T[NX]|V[AT]|[GLP]A|[HR]I|FL|UT|W[AIVY])$/
}