my $size = (keys %{$rHoH_ProteinFamilies->{proteinfamily}}); 
                                           ^