my $dnaString = '';
...
if ($line=~/^>(\S+)/){
	print qq|Count: $count, Match: $1, String: $dnaString\n|;
	push (@seqList, $1);