#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;

# create object
$xml = new XML::Simple (KeyAttr=>[]);

#read XML file
$data = $xml->XMLin("data.xml");

#dereference hash ref

#print Dumper($data);
print $data->{PMID}, "\n";
print $data->{Article}->{ArticleTitle}, "\n";

foreach $e (@{$data->{Article}->{AuthorList}->{Author}})
{
	$authors.= $e->{LastName}." ".$e->{Initials}.', ';
}

print $data->{Article}->{Journal}->{ISOAbbreviation}, " ";
print $data->{Article}->{Journal}->{JournalIssue}->{PubDate}->{Year}, ";", ;
print $data->{Article}->{Journal}->{JournalIssue}->{Volume}, ":";
print $data->{Article}->{Pagination}->{MedlinePgn}, "." ;
print "\n";