Help for this page

Select Code to Download

Select or download this

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

Select or download this

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