for my $y (0..$#list) {
   for my $x ($y+1..$#list) {
      ...
   }
}