open GENOMESEQ, "acc2name" || die "$!";
while(<GENOMESEQ>) {
   chomp;
   $_ =~ s/\w+\s+//;
   my $seqname = $_;
   my $seq=<GENOMESEQ>;
   $seq =~ s/\w+\s+//;   
   chomp($seq);
   my $desc=<GENOMESEQ>;
   $desc =~ s/\w+\s+//;
   chomp($desc);
   print $seqname."\t".$seq."\t".$desc."\n";
}
close GENOMESEQ;
