$ perl -wE 'my $x; $_++ for ($x, 1)'
Modification of a read-only value attempted at -e line 1.