@lines = <FILE>#potentially expensive

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