sub printTree
{
	my($a)=shift;
	my(@l);
	
	foreach $b (sort keys %{$a})
	{
		if(ref($a->{$b}) eq 'HASH')		
		{
			$l[$depth]=$b;
			print "@l\n";
			$depth++;
			printTree($a->{$b});
			$depth--;
		}
		else
		{
			$l[$depth]=$b;
			print "@l\n";
		}
	}
}