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";
}
}
####
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
####
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