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

$ perl -MO=Deparse -e" ++$counts{$_} while <IN>; "
++$counts{$_} while defined($_ = <IN>);
-e syntax OK
[download]