for my $protein ( keys %{$rHoH{$name}}) 
{
  print "$protein=$rHoH->{$name}{$protein}";
  #                    __
}