$dna       = <FASTQ>;
...;
$qual      = <FASTQ>;
@dna       = split ('', $dna);
@qual      = split ('', $qual);