script perl adaptation des scripts parallelisation pour garder nom noeud