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