% perl -e 'for (1) { while(<>) {} }' Modification of a read-only value attempted at -e line 1.forの中の$_は1そのものを指してて、while(<>)は$_を書き換えるものだから。 for ($x) なら 大丈夫で、$x に<>で読んだモノが入る。