my $count = @{ $doc->{$sub1} };
for (my $i=0; $i<$count; $i++)