The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[Profile] 
 Title="An example of DNA sequence data" 
 NbSamples=3 
 GenotypicData=0 
 DataType=DNA 
 LocusSeparator=NONE 
[Data] 
 [[Samples]] 
  SampleName="Population 1" 
  SampleSize=6 
  SampleData= { 
 000 3 GACTCTCTACGTAGCATCCGATGACGATA 
 001 1 GACTGTCTGCGTAGCATACGACGACGATA 
 002 2 GCCTGTCTGCGTAGCATAGGATGACGATA 
  } 
  SampleName="Population 2" 
  SampleSize=8 
  SampleData= { 
 000 1 GACTCTCTACGTAGCATCCGATGACGATA 
 001 1 GACTGTCTGCGTAGCATACGACGACGATA 
 002 1 GCCTGTCTGCGTAGCATAGGATGACGATA 
 003 1 GCCTGTCTGCCTAGCATACGATCACGATA 
 004 1 GCCTGTCTGCGTACCATACGATGACGATA 
 005 1 GCCTGTCCGCGTAGCGTACGATGACGATA 
 006 1 GCCCGTGTGCGTAGCATACGATGGCGATA 
 007 1 GCCTGTCTGCGTAGCATGCGACGACGATA 
  } 
  SampleName="Population 3" 
  SampleSize=6 
  SampleData= { 
 023 1 GCCTGTCTGCGTAGCATACGATGACGGTA 
 024 1 GCCTGTCTGCGTAGCGTACGATGACGATA 
 025 1 GCCTGTCTGCGTAGCATACGATGACGATA 
 026 1 GCCTGTCCGCGTAGCATACGGTGACGGTA 
 027 1 GCCTGTCTGCGTGGCATACGATGACGATG 
 028 1 GCCTGTCTGCGTAGCATACGATGACGATA 
  } 
[[Structure]] 
  StructureName="A group of 3 populations analyzed for DNA" 
  NbGroups=1 
  Group= { 
   "Population 1" 
   "Population 2" 
   "Population 3" 
  }