perl /home/lanx/perl/multisort.pl
# multisort.pl:83: {
#   "Count:"  => { A => 9, B => 9, I => 6, K => 6, N => 5, Q => 8, S => 9, Y => 8 },
#   "Matrix:" => {
#                  A => { B => 2, I => 1, K => 1, N => 1, Q => -1, S => 2, Y => 1 },
#                  B => { I => -1, K => 1, N => -1, Q => -1, S => -2, Y => -1 },
#                  I => { K => 1, Q => -1, S => -1, Y => -1 },
#                  K => { Q => -1, S => -1, Y => -1 },
#                  N => { Q => -1, S => 1, Y => 1 },
#                  Q => { S => 1, Y => 2 },
#                  S => { Y => -1 },
#                },
# }
ok 1
# multisort.pl:83: {
#   "Count:"  => { A => 3, B => 11, K => 2, L => 2, N => 8, P => 10, X => 11, Y => 8, Z => 1 },
#   "Matrix:" => {
#                  A => { K => -1, L => -1, Z => -1 },
#                  B => { N => -3, P => -1, X => 3, Y => -2 },
#                  K => { L => -1 },
#                  N => { P => 2, X => 2, Y => 1 },
#                  P => { X => 3, Y => -2 },
#                  X => { Y => -3 },
#                },
# }
not ok 2
#   Failed test at /home/lanx/perl/multisort.pl line 39.
#     Structures begin differing at:
#          $got->[6] = 'K'
#     $expected->[6] = 'Z'
# {
#   exp => ["X", "B", "P", "Y", "N", "A", "Z", "K", "L"],
#   got => ["X", "B", "P", "Y", "N", "A", "K", "L", "Z"],
# }
1..2
# Looks like you failed 1 test of 2.