perl 在循环的变量中自己和自己比较

如果在 Perl 的循环中需要将循环变量和自己进行比较，可以使用双重循环来实现。具体代码如下：

my @array = (1, 2, 3, 4, 5);

for my $i (0..$#array) {
    for my $j ($i..$#array) {
        if ($array[$i] > $array[$j]) {
            # do something
        }
    }
}

代码中，首先定义了一个数组 `@array`，然后使用双重循环来遍历数组。外层循环的变量 `$i` 从 0 开始遍历到数组的最后一个元素的索引 `$#array`，内层循环的变量 `$j` 从 `$i` 开始遍历到数组的最后一个元素的索引 `$#array`。在循环体中，可以使用条件语句来比较 `$array[$i]` 和 `$array[$j]` 的大小关系，从而实现需要的操作。

需要注意的是，由于是双重循环，因此时间复杂度较高，适用于数据量较小的情况。如果数据量较大，建议使用其他算法来降低时间复杂度。