use strict;
use warnings;

# Set up the keys that contain no spaces.
#
my @listOfGoodwords = qw{
   mhm right well yeah sure good ah okay yep
   hm definitely alright 'm'm oh my god wow
   uhuh exactly yup mkay ooh cool uh fine true
   hm'm hmm yes absolutely great um so mm weird
   huh yay maybe eh obviously correct awesome
   really interesting ye-};

# Now add those keys that do contain spaces.
#
push @listOfGoodwords,
   q{i see},
   q{i mean},
   q{i know},
   q{i think so};

##</code><code>##

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

##</code><code>##

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