Just for fun...
B4X:
Dim arrTerritories() As String = Array As String( _
"District of Columbia","Puerto Rico","Guam","American Samoa", _
"U.S. Virgin Islands", "Northern Mariana Islands")
Dim arrStates() As String = Array As String( _
"Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut", _
"Delaware","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa", _
"Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan", _
"Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire", _
"New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio", _
"Oklahoma","Oregon","Pennsylvania","Rhode Island","South Carolina","South Dakota", _
"Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virginia", _
"Wisconsin","Wyoming")