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

my $xml = '../events.xml';

my $xp = XML::XPath->new(filename => $xml);

my $nodeset = $xp->findnodes('//playlist');

my $records = [];
foreach my $node ($nodeset->get_nodelist) {
    my $title    = $xp->find('./title', $node);

    push @$records, {
        title    => $title->string_value,
   };
}

print Dumper($records);