my %seqs
foreach my $sline (@slines){
      my($start,$size,$name,$text) = split /\s+/, $sline;
      $seqs{$name} = $text;
      }