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

##</code><code>##

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