## count of violations 11 below
while( my $foo = shift @$array ){ ... }
while( my $foo = shift $array ){ ... }
while( my $foo = shift @array ){ ... }
for(; my $bad = shift @$array ){ ... }
for(; my $bad = shift $array ){ ... }
for(; my $bad = shift @array ){ ... }
for(; my $foo = shift @array; ){ ... }
foreach( my $notnull=9; my $foo = shift @array;  $notnull++ ){ ... }
foreach( my $notnull=9; my $foo = shift @array;  ){ ... }

while
##
(
##
my $foo = shift @$array ){ ... }

do { print "$foo\n"; }
while ## blah
( my $foo = shift @array )
## blah
;
## count of violations 11 above

## no flags thrown, none, 5 of none
for( ; ; ){ ... }
for(;;){ ... }
for(;;shift @array){ print "@array\n"; }
for( (my @mon = 1..3),(my @day= 8..10); @mon || @day; shift @mon, pop @day){ for my $mon (@mon){ printf q{ %2s %2s |}, $mon,$_ for @day; } print "\n" }
for(my @months = 1..10; @months; shift @months ){ print "@months\n$months[0]\n\n"; }