#!/usr/bin/perl

# turn on perl safety features
    use strict;
    use warnings;

# work out the name of the argument we're looking for

my $file_in = $ARGV[0] or die "Must specify file on command line";

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

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

# read XML file
my $data = $xml->XMLin($file_in);

#declare array node variable
my ($e);

# dereference hash ref
# access reference array
foreach $e (@{$data->{ppsarticleresponse}->{ppsarticleresultset}->{ppsarticle}->{article}})
{
        print $e->{reference}, "\n";
}

exit(0);