$ perl -wE'
for my $num (0..3) {
$num or do { say "$num is false"; next };
say "num $num"
}'
0 is false
num 1
num 2
num 3