Select Code to Download

for my $i (0 .. $#array) {
    for my $j (0 .. $#array) {
...
        # Compare $i, $j
    }
}

for my $i (0 .. $#array - 1) {
    for my $j ($i + 1 .. $#array) {
        # Compare $i, $j
    }
}