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

##</code><code>##

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

##</code><code>##

@WordList = (<ACTLIST>);