context, while is scalar, for is list, and readline reads the whole file in list context

$ 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]