perl /home/lanx/perl/multisort.pl
# multisort.pl:61: {
#   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:61: {
#   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 26.
#     Structures begin differing at:
#          $got->[0] = 'A'
#     $expected->[0] = 'X'
["A", "B", "K", "L", "X", "P", "Y", "N", "Z"]
# 1
1..2
# Looks like you failed 1 test of 2.