UNIX for Advanced & Expert Users

ls -1|\
awk '{
    if (NR==FNR) {
        f[$1]
        f[FILENAME]
    } else
    {
        doprint = 1;
        for (x in f)
                if (substr($1, 0, length(x)) == substr(x, 0, length($1))) doprint = 0;
        if (doprint)
                print $1
    }
}' cntrlfile -

^TEST
^SEND
^SFFFILE
^CONTL

if (substr($1, 0, length(x)) == substr(x, 0, length($1))) doprint = 0;

if ($1 ~ x) doprint = 0;