if ($line =~/^>(\w+)\s(.+)$/) {
      push(@seqnames, $1);