$i=5; print do{ --$1 };              # prints 4
$i=5; print do{ --$i } while $i;     # prints 43210