19:49 >perl -wE "for (my ($i, $j) = (1, 5); $i <= 5; ++$i, --$j) { say abs($i - $j); }"
4
2
0
2
4

19:49 >