my @subs;
for(my $i=1;$i<=2;$i++){ print \$i."\n" }
print "----\n";
for my $i (1..2) { print \$i."\n" }

##</code><code>##

SCALAR(0x55a429b66a28)
SCALAR(0x55a429b66a28)
----
SCALAR(0x56399466d4d8)
SCALAR(0x5639946924a0)

##</code><code>##

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