Select Code to Download

use warnings;
use Data::Dumper;
...
}

print Data::Dumper->Dump([ \@results], ['result']);

0 -> CCCCG (CCCG) 1 -> CCCGC
1 -> CCCGC (CGC) 2 -> CGCGC
...
            [ 1, 'CC---' ],
            [   2, '---GC' ]
          ];