$ perl -MO=Deparse -e" ++$counts{$_} for ; " ; ++$counts{$_} foreach (); -e syntax OK $ perl -MO=Deparse -e" ++$counts{$_} while ; " ++$counts{$_} while defined($_ = ); -e syntax OK