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

        }