Select Code to Download

my $fseq1= 'CCCCGCGC';
my @nsub1= ('CCCCG', 
...
            [ 1, 'CC---' ],   # but this is extra
            [ 2, '---GC' ]
          ];

my $fseq2=   'CCGCGCTC';
my @nsub2= ( 'CCGCG',
...
           ];

# So here we can observe that every element of the 
# array is only produced 'once'
...
            [ 2,'----T' ],
            [ 3,'----C' ],
           ];