++ For your code. It's quite readable as well despite being dense IMHO.

About the number of permutations, rather than a loop wouldn't it be simpler to just have: @board[1,2] = @board[2,1] if $inversions %2; ?