$ 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