foreach $key (sort(keys(%hash)))
{
	print "Key = $key, value= $hash{$key}\n";
}

##</code><code>##

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