my @colors=qw(red blue green yellow orange purple violet);
print "----- our \$x; for \$x ...; after for block ---------\n";
our $x;
foreach $x (@colors) {
  no strict 'refs';
  my $name=$x;
  *{$x.'_0'}=sub { $x="$x|$x"; print "doubling \$x: <$x>\n"; };
}

print "setting \$x to 'x'\n";
$x="x";
red_0();
{
  local $x="X";
  print "localized \$x to 'X'\n";
  red_0();
  print "leaving localization block\n";
}
red_0();

##</code><code>##

----- our $x; for $x ...; after for block ---------
setting $x to 'x'
doubling $x: <x|x>
localized $x to 'X'
doubling $x: <X|X>
leaving localization block
doubling $x: <x|x|x|x>

##</code><code>##

my @colors=qw(red blue green yellow orange purple violet);
print "----- my \$x; for \$x ... ---------\n";
my $x;
foreach $x (@colors) {
  no strict 'refs';
  my $name=$x;
  *{$x.'_0'}=sub { $x="$x|$x"; print "doubling \$x: <$x>\n"; };
}

$x="x";
print "set \$x to 'x'\n";
print "\$colors[0]=<$colors[0]>  \$x=<$x>\n";
red_0();
print "\$colors[0]=<$colors[0]>  \$x=<$x>\n";

$colors[0]='RED';
print "setting \$colors[0] to 'RED'\n";
red_0();

##</code><code>##

----- my $x; for $x ... ---------
set $x to 'x'
$colors[0]=<red>  $x=<x>
doubling $x: <red|red>
$colors[0]=<red|red>  $x=<x>
setting $colors[0] to 'RED'
doubling $x: <RED|RED>
doubling $x: <RED|RED|RED|RED>