Report question

Question: Randomize matrix in perl, keeping row and column totals the same