script perl pair/singlel: transfert des données générées directement dans le bon repertoire et non un repertoire qui se repete niais???Essaie encore