note
mje
<p>A casual test looks like that statement is still true:</p>
<code>
use 5.17.6;
use strict;
use warnings;
my %a = (
z => 1,
y => 2,
x => 3);
foreach (1..3) {
print join(",", keys %a), "\n";
print join(",", values %a), "\n";
while (my ($d,$e) = each %a) {
print "$d = $e\n";
}
}
</code>
<p>run 1</p>
<code>
z,y,x
1,2,3
z = 1
y = 2
x = 3
z,y,x
1,2,3
z = 1
y = 2
x = 3
z,y,x
1,2,3
z = 1
y = 2
x = 3
</code>
<p>run 2</p>
<code>
x,y,z
3,2,1
x = 3
y = 2
z = 1
x,y,z
3,2,1
x = 3
y = 2
z = 1
x,y,z
3,2,1
x = 3
y = 2
z = 1
</code>
1005122
1006246