Select Code to Download

my @colors=qw(red blue green yellow orange purple violet);
print "----- our \$x; for \$x ...; after for block ---------\n";
...
  print "leaving localization block\n";
}
red_0();

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

my @colors=qw(red blue green yellow orange purple violet);
print "----- my \$x; for \$x ... ---------\n";
...
$colors[0]='RED';
print "setting \$colors[0] to 'RED'\n";
red_0();

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