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

my $xml = XMLin(\*DATA);

print Dumper $xml;

__DATA__
<BarGraph xmlns="http://example.org/bargraph">
  <Bar>
    <Title>Portland</Title>
    <Value>32</Value>
  </Bar>
  <Bar>
    <Title>Berlin</Title>
    <Value>20</Value>
  </Bar>
  <Bar>
    <Title>Pune</Title>
    <Value>16</Value>
  </Bar>
</BarGraph>