for (my ($i, $j) = (1, 5); $i <= 5; ++$i + --$j) {
    say abs($i - $j); 
}

4
2
0
2
4