my %state_or_province_designator = (
    AL => { 
        regex => qr/AL(?:A(?:\.|BAMA)?)?\.?/i,
        test_case => [qw( ALA ALA. ALABAMA )], 
    },
    AK => { 
        regex => qr/A(?:K|LAS(?:KA?)?)\.?/i, 
        test_case => [qw( ALASKA )], 
    },
    AS => { 
        regex => qr/A(?:\.?|M(?:\.|ER(?:\.|ICAN)?)?)\s*S(?:AM(?:\.|OA)?)?|A\.\s*S\./i, 
        test_case => [], 
    },
    ... );

    # AS test case generation
    push @{ $state_or_province_designator{AS}{test_case} },
      generate_from_array_2( [ 
            [qw( A A. AM AM. AMER AMER. AMERICAN )], 
            [qw( S S. SAM SAM. SAMOA )]
        ] );