051   $line=<TR_INFILE>;
052   chomp $line;