my @subs;
for(my $i=1;$i<=5;$i++){
        push @subs, sub {
                print "i=$i\n";
        };
}
$subs[3]->();

##</code><code>##

my @subs;
for(my $i=1;$i<=5;$i++){
        push @subs, eval <<EOE;
sub {
    print "i=$i\n";
};
EOE
}
$subs[3]->(); 

##</code><code>##

my @subs;
for(my $i=1;$i<=5;$i++){
        my $j = $i;
        push @subs, sub {
          print "i=$i, j=$j\n";
        };
}
$subs[3]->();