Select Code to Download

for (1..100) {
    my $i = 1;
    print \$i, "\n";
}

for (1..10) {
    my $i = 1;
...
}

print "outside loop: $_\n" for @is;