Select Code to Download

my $inversions = 1;
while ($inversions % 2) {
    @board = (0, shuffle(1..15));
...
        }
    }
}

my $inversions;
do {
  $inversions = 0;
...
    }
  }
} while $inversions % 2;