open TF, "< $tfile" ;
    foreach $line (<TF>) {