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