foreach $key (sort(keys(%hash)))
{
	print join(/ /,keys(%{$hash{$key}}),"\n";
}