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