my $count = 0;
while( $count < 30 ) { print "count $count\n" if ++$count % 3 == 0; }