Select Code to Download

my $xml = XMLin($data);

my $genes = XMLin($data, 
  keyattr    => { gene => 'id' },
  forcearray => [ 'gene' ],
);

XMLin(\*DATA, ...);