>perl -le "for (1..2) { for (reverse 1..3) { print; $_=5; } }"
3
2
1
5
5
5

>perl -le "for (1..2) { for (reverse 1..($x=3)) { print; $_=5; } }"
3
2
1
3
2
1