Help for this page
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;