for ($i=2; $i<4; $i +=1) {
open (DAT$i, "T$iT.txt");
@A$i=<DAT$i>;
print @A$i;
}