my $i;

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

##</code><code>##

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

##</code><code>##

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

$j = 10;
for $i ($j) {
    push( @ref_list, sub { print "    \$i == $i\n" } );
}
&{$ref_list[0]};
$j = 20;
&{$ref_list[0]};

##</code><code>##

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