while ($line = <FILE>) {
   if ($line is good) {
      dosomething($line, $lastline);
   }
   $lastline = $line;
}