Select Code to Download

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