while (<ACTLIST>)
    {
        push @WordList, $_;
    }