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