Select Code to Download

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

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

@WordList = (<ACTLIST>);