Actually I was trying something like this

foreach $desc ( @{ $e->{desc}->{descript} } ) {
        print REPORT $desc->{source}.':';
        print REPORT $desc->{content}. '<br>';

        }
[download]

But I don't understand why it doesn't work! Not an ARRAY reference at ./parser.pl line 47. Thanks.