Select Code to Download

    for (my $i = 0; $i < @array; $i++) {
        for (my $j = $i+1; $j < @array; $j++) {
...
            # test $compare w.r.t. $element
        }
    }