while(my $line=<FILE>){
  do_something;
}