my @seqs = qw(
  CTCG--ATCG-ATCG
  CTGC--ATCG-ATCG
  ATGC-A-TCG-ATCG
  ATGC--ATCG-ATCG
  );