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

##</code><code>##

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