#!/usr/local/bin/perl

open(SRC, "993.seg-mandarin.gb") or die $!;
open(OUT, "993.seg-mandarin.gb.out") or die $!;

# ref12.txt, ref16.txt, ref17.txt, ref21.txt

open(REF12, "ref12.txt") or die $!;
open(REF16, "ref16.txt") or die $!;
open(REF17, "ref17.txt") or die $!;
open(REF21, "ref21.txt") or die $!;

$sentencecount = 0;
while (!eof(REF12)) {
    print $sentencecount, ":\n";
    $linesrc = <SRC>;
    $lineout = <OUT>;
    $line0 = <REF12>;
    $line1 = <REF16>;
    $line2 = <REF17>;
    $line3 = <REF21>;

    print "SRC: ", $linesrc, "XFR: ", $lineout, "R12: ", $line0, 
          "R16: ", $line1, "R17: ", $line2, "R21: ", $line3, "\n";
    $sentencecount++;
}
close(OUT);
close(SRC);

close(REF12);
close(REF16);
close(REF17);
close(REF21);