Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    return (\%c_hash, @tmpArr);

}

$VAR1 = {
          'chapter' => {
                       'subchap1' => {
...
                       'chapnum' => '12'
                     }
        };

<?xml version="1.0"?>
<book>
<chapter chapnum="12" id="c012">
...
<para>Another exciting chapter of the arachidonic acid story has been 
+told separately, namely the endocannabinoids, which are described lat
+er in this chapter.</para></subchap1>
</chapter>
</book>