my %HoA;
foreach my $key (keys %$ref_to_HoH){
   my $type = $$ref_to_HoH{$key}{TABLE_TYPE};
   push @{$HoA{$type}},$key;
}