4606. [port] Stop using experimental "Experimental keys on scalar"

                        feature of perl as it has been removed. [RT #45012]

CHANGES

+4606.	[port]		Stop using experimental "Experimental keys on scalar"
+			feature of perl as it has been removed. [RT #45012]
+
 4605.	[performance]	Improve performance for delegation heavy answers
 			and also general query performance. Removes the
 			acache feature that didn't significantly improve

bin/tests/system/statschannel/server-json.pl

@@ -16,15 +16,15 @@ my $text = do{local$/;<INPUT>};
 close(INPUT);
 
 my $ref = decode_json($text);
-foreach $key (keys $ref->{opcodes}) {
+foreach $key (keys %{$ref->{opcodes}}) {
     print "opcode " . $key . ": " . $ref->{opcodes}->{$key} . "\n";
 }
-foreach $key (keys $ref->{rcodes}) {
+foreach $key (keys %{$ref->{rcodes}}) {
     print "rcode " . $key . ": " . $ref->{rcodes}->{$key} . "\n";
 }
-foreach $key (keys $ref->{qtypes}) {
+foreach $key (keys %{$ref->{qtypes}}) {
     print "qtype " . $key . ": " . $ref->{qtypes}->{$key} . "\n";
 }
-foreach $key (keys $ref->{nsstats}) {
+foreach $key (keys %{$ref->{nsstats}}) {
     print "nsstat " . $key . ": " . $ref->{nsstats}->{$key} . "\n";
 }

bin/tests/system/statschannel/server-xml.pl

@@ -14,7 +14,7 @@ use XML::Simple;
 my $ref = XMLin("xml.stats");
 my $counters = $ref->{server}->{counters};
 foreach $group (@$counters) {
-    foreach $key (keys $group->{counter}) {
+    foreach $key (keys %{$group->{counter}}) {
         print $group->{type} . " " . $key . ": ". $group->{counter}->{$key}->{content} . "\n";
     }
 }

bin/tests/system/statschannel/traffic-json.pl

@@ -21,24 +21,24 @@ my $ref = decode_json($text);
 
 my $tcprcvd = $ref->{traffic}->{"dns-tcp-requests-sizes-received-ipv4"};
 my $type = "tcp request-size ";
-foreach $key (keys $tcprcvd) {
+foreach $key (keys %{$tcprcvd}) {
     print $type . $key . ": ". $tcprcvd->{$key} ."\n";
 }
 
 my $tcpsent = $ref->{traffic}->{"dns-tcp-responses-sizes-sent-ipv4"};
 my $type = "tcp response-size ";
-foreach $key (keys $tcpsent) {
+foreach $key (keys %{$tcpsent}) {
     print $type . $key . ": ". $tcpsent->{$key} ."\n";
 }
 
 my $udprcvd = $ref->{traffic}->{"dns-udp-requests-sizes-received-ipv4"};
 my $type = "udp request-size ";
-foreach $key (keys $udprcvd) {
+foreach $key (keys %{$udprcvd}) {
     print $type . $key . ": ". $udprcvd->{$key} ."\n";
 }
 
 my $udpsent = $ref->{traffic}->{"dns-udp-responses-sizes-sent-ipv4"};
 my $type = "udp response-size ";
-foreach $key (keys $udpsent) {
+foreach $key (keys %{$udpsent}) {
     print $type . $key . ": ". $udpsent->{$key} ."\n";
 }

bin/tests/system/statschannel/traffic-xml.pl

@@ -22,7 +22,7 @@ foreach $group (@$udp) {
     if (exists $group->{counter}->{name}) {
         print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
     } else {
-        foreach $key (keys $group->{counter}) {
+        foreach $key (keys %{$group->{counter}}) {
             print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
         }
     }
@@ -34,7 +34,7 @@ foreach $group (@$tcp) {
     if (exists $group->{counter}->{name}) {
         print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
     } else {
-        foreach $key (keys $group->{counter}) {
+        foreach $key (keys %{$group->{counter}}) {
             print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
         }
     }