my $Skalar='%Hash1';
my $HashRef=\%Hash1;

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

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