Select Code to Download

use 5.17.6;
use strict;
...
        print "$d = $e\n";
    }
}

z,y,x
1,2,3
...
z = 1
y = 2
x = 3

x,y,z
3,2,1
...
x = 3
y = 2
z = 1