while ( my $line = ) { # handle the line here instead of as an element of an array }