Figure 3:
Structure of the Coy hierarchical vocabulary.
Just Another Perl Haiku
The Perl Journal, Winter 1999
 

Structure of the Coy hierarchical vocabulary

 $database = {
       duck => {
           category => [ "bird" ],
           sound    => [ "quacks", ],
           act      => { swims => { location     => "suraquatic",
                                    direction    => "horizontal",
                                    synonyms     => [ "paddles" ],
                                    associations => "sink wet", }, },
       },
       fox => {
           category => [ "animal", "hunter" ],
           sound    => [ "barks" ],
           act      => { trots => { location     => "terrestrial",
                                    associations => "smart problem", }, },
       },
       lover => {
           category => [ "human" ],
           sound    => [ "sighs", "laughs" ],
           minimum  => 2,
           maximum  => 2,
           act      => {  kisses   => { location     => "terrestrial",
                                     associations   => "connection", },
                          quarrels => { location     => "terrestrial", 
                                     associations   => "argument", }, },
       },
   };