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

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