foreach my $key (sort keys   %Hash1)  { 
	print "Key: $key\n";
}