Select Code to Download

use strict;
use warnings;
...
   q{i mean},
   q{i know},
   q{i think so};

my %Goodwords;
foreach my $key (@listOfGoodwords)
{
    $Goodwords{$key} = 1;
}

my %Goodwords = map {$_ => 1} @listOfGoodwords;