while (<ACTLIST>)
    {
        $TheLine = $_;
        @WordList = "$TheLine";
    }