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