for ( "read", "only", "value" ) {
    print "$_\n";
    $_ = "test"; # blows up
}

##</code><code>##

sub foo { $_ = "test"; }

foo(); # works

for ( "read", "only", "value" ) {
    print "$_\n";
    foo(); # blows up
}