There' also the same kind of statement using if's cousin, unless:

return unless ($i <= 0);
[download]

and there's also while, until and for:

print "i = $i\n" while ($i++ < 10);
$i = 0;
print "i = $i\n" until ($i++ >= 10);
print "$_\n" for (1..10); # note: for my $i ... doesn't work
[download]