Select Code to Download

foreach $line (@lines) {
...
}

foreach my $line (@lines) {
...
}

for (my $i = 1; $i < 10; $i ++) {
    print $i;
}