perl script to add extract node (cpd and ko) details, fine tuned import.r script