#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use XML::Simple;
my $data = XMLin("/path/to/report.xml");
for ( @{ $data->{'report'} } ) {
    print "Report name: $_->{'report-name'}\n";
}