note Anonymous Monk <p>Here is a simpler example<c> #!/usr/bin/perl -- use strict; use warnings; my @closures ; for( 1 .. 3 ){ my $me = $_; # lexical $me push @closures, sub { print "You got $me\n"; # lexical $me }; } $_->() for @closures; shift(@closures)->(); $_->() for @closures; __END__ You got 1 You got 2 You got 3 You got 1 You got 2 You got 3 </c>See also [Tutorials]: [id://66677|Variable Scoping in Perl: the basics], [id://520303|Coping with Scoping] , [id://803515|Mini-Tutorial: Perl's Memory Management], [id://213855|Lexical scoping like a fox] 990930 991367 0