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