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