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

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