sub ResetHashProteinTally
{

my ($rHoH_ProteinFamilies) = @_; #capturing array

	for my $proteinfamily ( keys %{$rHoH_ProteinFamilies} ) 
	{
	my $size = (keys %{$rHoH_ProteinFamilies->{proteinfamily}});  #----> finds the length of a hash
	print "$size\n";
	}

} #end of sub routine ResetHashProteinTally
##</code><code>##

0
0
0