Perl and bash scripts to sample reads from a set of fastq files