Select Code to Download

my $i;

for $i (1..8) {
    print "$i\n";
}

for $i (1..8) {
    push( @ref_list, sub { print "    \$i == $i\n" } );
}

my ( @ref_list, $i, $j );

...
&{$ref_list[0]};
$j = 20;
&{$ref_list[0]};

for ($i = 1; $i <= 8; $i++ ) { 
    push( @ref_list, sub { print "    \$i == $i\n" } );
}