my ($entry, $entry2);
   while(do {local $/="\n\n";defined($entry = <$fh_1>) and defined($entry_2 = <$fh_2>})){
     tu_was($entry,$entry_2);
  }