Select Code to Download

$Data{gen} = {
   'beholder' => {b => 1, pg => 21},
   'death kiss' => {pg => 21},
   ...
};

sub random
{
...
    my $chosen = $choices[rand @choices];
    return $Data{$key}{$chosen};  # or maybe just return $chosen ?
}

my $output = my $randomkey = random( "gen" );

$output .= " beholder" unless ( exists( $Data{gen}{$randomkey}{b} ));

my $addon = '';
if ( exists( $Data{gen}{$randomkey}{bk} ) or
...
        if ( exists( $Data{gen}{$randomkey}{pg} ));
}
$output .= " ($addon)" if ( $addon );