Select Code to Download

use strict;
use XML::Simple;
use Data::Dumper;

my $xml_hash = XMLin('pon01100.xml');
print Dumper($xml_hash);

$VAR1 = {
          'reaction' => {
...
                                                    'id' => '2270'
                                                  }
                                     }......and so on......