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

##</code><code>##

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

##</code><code>##

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