our $name;
for $name (qw(red blue green yellow orange purple violet)) {
    $name = "foo";
}
__END__
Modification of a read-only value attempted at - line 3.