my $c = 0;
  I: for (my $i = $max; $i >= $min; $i--) {
 J: for (my $j = $max; $j >= $i; $j--) {
        my $prod = $i * $j;
	    $c++;
        print "Iteration: $c, I: $i, J: $j Product: $prod\n";
..............
.............

Iteration: 1, I: 999, J: 999 Product: 998001
Iteration: 2, I: 998, J: 999 Product: 997002
Iteration: 3, I: 998, J: 998 Product: 996004
Iteration: 4, I: 997, J: 999 Product: 996003
Iteration: 5, I: 997, J: 998 Product: 995006
Iteration: 6, I: 997, J: 997 Product: 994009
Iteration: 7, I: 996, J: 999 Product: 995004
Iteration: 8, I: 996, J: 998 Product: 994008
Iteration: 9, I: 996, J: 997 Product: 993012