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