use warnings;
use strict;

{
my @HappyGamesAndThings = ("nfs", "nfsII", "With the PerlMonks", "Morrowind", "TES Constructor Set");
my @SadGamesAndThings = qw(RedFactionII CCG RavenShield AGG);

print "How has your day been? (Answer 'good or 'bad').\n";

my $mood = <STDIN>;
chomp $mood;

if ("bad" eq lc ($mood))
   {
   my $randgame = $SadGamesAndThings [rand (@SadGamesAndThings)];
   print "You should play:";
   print $randgame;
   }

if ("good" eq lc ($mood))
   {
   my $randgame = $HappyGamesAndThings [rand (@HappyGamesAndThings)];
   print "You should play: ";
   print $randgame;
   }
   
if (lc ($mood) ne "bad" and lc ($mood) ne "good")
   {
   print "Error, please re-type answer. \n";
   redo
   }
}

exit;