#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;

$simple = XML::Simple->new;
$data = $simple->XMLin('data.xml');
print $data->{PMID};
print $data->{Article}->{...}->{...};