my $last = $#{ $doc->{$sub1} };
for my $i ( 0 .. $last )