$ACodes = {...};   #hash table ref
sub getAStruct {
   return $ACodes;
}
$BCodes = {...};   #hash table ref
sub getBStruct {
   return $BCodes;
}
...