$ perl -le'$x="green"; for our $x ("red", "blue") { push @a, sub { $x } } print $_->() for @a'
green
green

$ perl -le'for my $x ("red", "blue") { push @a, sub { $x } } print $_->() for @a'
red
blue

##</code><code>##

package Module;
my $x;
sub set { $x = shift }
sub get { $x }
1;

##</code><code>##

use Module;
Module::set(123);
print Module::get();  # 123