for($a=0;$a<10;$a++){...}

##</code><code>##

for(1..10){...}

##</code><code>##

@lines = <FILE>#potentially expensive

#a bit better
while(my $line = <FILE>){
    chomp $line;
    ...do something with $line
}