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

use strict;
use warnings;

my $data = do {local $/;<DATA>};
my $xml  = new XML::Simple(keeproot => 1);# this is what you want
my $tree = $xml->XMLin($data);

print Dumper($tree);

__DATA__
<?xml version="1.0" ?>
<gene id = "3" label = "gene_of_interest" />