Select Code to Download

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

Attempt to free unreferenced scalar: SV 0x9730848, Perl interpreter: 0
+x970a008 at /tmp/perm2 line 17, <DATA> line 1.