OK I'm a bit busy.

This works but it's ugly and doesn't run under strict for some reason I'll figure out later.

#!/usr/bin/perl
use XML::Simple;
my $data = XMLin("/path/to/report.xml");


for ( @{ $data->{'report'} } ) {
    print "Report name: $_->{'report-name'}\n";
    foreach my $key ( keys( %{ $_->{'source-file'} } ) ) {
        print "source file path: "
          . $_->{'source-file'}->{"$key"}
          ->{'source-file-path'} . "\n";
    }
    foreach
      my $key ( keys( %{ $_->{'destination-file'} } ) )
    {
        print "destination file path: "
          . $_->{'destination-file'}->{"$key"}
          ->{'destination-file-path'} . "\n";
    }
}
[download]

The thing I'd do, if it were me, is mess about a bit with the options of XML::Simple, so that the data structure was a bit easier to access.