script perl global/pair/single parallelise: ok