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