for my $j (reverse($i + 1 .. $#sets))