Another variant:

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

Remap array to scalar if only one entry

 ...
 for( values %HoA ) { $_ = $_->[0] if @$_ == 1 }
 ...
[download]

Regards

mwa