print " Description   "; 
foreach my $de ($entry->DEs->elements()) {
        print OUT join ("\n", $de->text()),"\n" ;
    }