...
 my %HoA;
 push @{ $HoA{ $_->{TABLE_TYPE} } },
               $_->{TABLE_NAME}  for values %HoH;
 ...