if (exists %{$rHoH_ProteinFamilies->{$proteinfamily}->{$PROTEIN}})
{
delete $rHoH_ProteinFamilies->{$proteinfamily}->{$PROTEIN};
}
##</code><code>##

exists argument is not a HASH or ARRAY element or a subroutine at HoH.pl line 123.