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