Select Code to Download

for my $str ( 1..3 ) {
   my $lex = "";
...
 
   print "Out: $lex\n";
}

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