while( my($key, $val) = each  %{$rHoH_ProteinFamilies}){
      my $size = (keys %{$val->{proteinfamily});

##</code><code>##

  my $size = @{[%$val->{proteinfamily}]}/2;