my $count = @{ $doc->{$sub1} };
	print "\n$sub1\t";

	for (my $i=0; $i <= $count; $i++) {

##</code><code>##

	my $count = $#{ $doc->{$sub1} };
	print "\n$sub1\t";

	for my $i ( 0 .. $count ) {