open (DAT, "$INfile") || die "$!\n";
    chomp(my @aTd = <DAT>);