Select Code to Download

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

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

$i=5;
print( do{--$i;} ) while $i;

$i=5;
do {
     print --$i;
} while ($i);

$i = 5;
while ($i) {
     print --$i;
}

my ($i, $j) = (5, 0);
$j += do {
    print --$i;
} while ($i);
print $j; # prints 5.