or download this
# Insert into doubly indexed hash, grouped by country for ISO 3166-2
# codes. One hash is keyed by abbreviation and one by full name. Altho
+ugh
...
$::subcountry_lookup{$country_name}{_ISO3166_2_code_keyed}{$su
+b_country_code} = $FIPS_code;
}
}