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

##</code><code>##

i=4