for $i ( 1..3 ) {
   my $lex = "";
   $code = sub { $lex = "Test $i"; print " In: $lex\n"; }
        unless $code;
   $code->();
   print "Out: $lex\n";
}