my @lines = ##

##


while(my $line=){
  do_something;
}