while (1) {
  $double_line =  (<FILEHANDLE>).(<FILEHANDLE>) || last;
  print $double_line."\n---------\n";
}