my @c;
        for (my $i = 0; $i < length; $i++) {
            for (my $j = 2; $i + $j <= length; $j++) {
                push @c, substr $_, $i, $j;
            }
        }