use warnings;
use strict;

my %moods = (
    good => ["nfs", "nfsII", "With the PerlMonks", "Morrowind", "TES Constructor Set"],
    bad  => ["RedFactionII", "CCG", "RavenShield", "AGG"],
    );

my $mood;

while (1) {
    print "How has your day been?\n";
    $mood = <STDIN>;
    chomp $mood;
    $mood = lc $mood;
    last if exists $moods{$mood};
}

my $gamesRef = $moods{$mood};
my $randgame = $gamesRef->[rand @$gamesRef];
print "You should play: $randgame\n";