while (my $line = <$fh>) {
   ...
   if (...) {
      defined( my $next_line = <$fh> )
         or die;
      ...
   }
   ...
}