Select Code to Download

$xml = new XML::Simple (KeyAttr=>[],ForceArray=>['substrate','product'
+]);

foreach $g (@{$data->{reaction}}){
        $length = scalar @{$g->{substrate}};
        print " $g->{name}, len = $length\n";
}