$i++ if $some_condition;
#or
push @a, 'fred' while @a < 10;