#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my %Data;

#This sub will eventually go into a module.
sub random {
my ($name) = @_; 
my $array = $Data{$name};  
my $pick = $array->[rand @$array];
if (ref($pick) eq 'CODE') {return $pick->();} else {return $pick;}
}

$Data{gen} = [
'beholder' => {b => 1,pg => 21},
'death kiss' => {pg => 21},
'eye of the deep' => {pg => 21},
'gauth' => {pg => 21},
'spectator' => {pg => 21},
'undead' => {pg => 21},
'hive mother' => {pg => 25},
'director' => {pg => 25},
'examiner' => {pg => 25},
'lensman' => {pg => 25},
'overseer' => {pg => 25},
'watcher' => {pg => 25},
];

print random("gen")

exists ($gen{$b}) ? '' : ' beholder')

exists ($gen{$bk})||exists ($gen{$pg}) ? (
  ' ('.
  exists ($gen{$bk}) ?  ($gen{$bk}) : 'Monstrous Manual')
  exists ($gen{$pg}) ? ', page '.($gen{$pg}))
  .')'
  )
) keys %gen(@_)