print TFILE2 " $ABC[$idx]  ";