Select Code to Download

use strict;
use warnings;
...
          ||
          $a->[ 2 ] <=> $b->[ 2 ]
        } @matches;

Found CCCCCC, length 6 at offset 42
Found GGGG, length 4 at offset 56
...
Found TT, length 2 at offset 39
Found TT, length 2 at offset 51
Found TT, length 2 at offset 54