Select Code to Download

use warnings;
use strict;
...
my $game_aref = $games{$mood};
my $randgame = ${ $game_aref }[ rand @{ $game_aref } ];
print "You should play: $randgame\n";

my %games = (
                good => [ "nfs", "nfsII", "With the PerlMonks",
...
                bad  => [ "RedFactionII", "CCG", "RavenShield", "AGG" 
+],
                fantastic => [ "With the PerlMonks" ],
            );