if(/^>/) {$seq = $_} 
else {$accession{$seq} .= $_}