#!/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";
    }
}