Corrected perl scripts for poolfastqs