Select Code to Download

      P1 P2 P3 P4 P5 P6

...
 P4    3  5  1     2  4
 P5    4  3  5  2     1
 P6    5  2  3  4  1

Rd 1: (P1,P2), (P3,P4), (P5, P6)
Rd 2: (P1,P3), (P2,P6), (P4, P5)
Rd 3: (P1,P4), (P2,P5), (P3, P6)
Rd 4: (P1,P5), (P2,P3), (P4, P6)
Rd 5: (P1,P6), (P2,P4), (P3, P5)

  factorial[ ((n/2)-1) * (n-1) ] / [ factorial((n/2)-1) ]^(n-1)

Round 1:
match 8 with 1, then pair up the rest
...
          5    4    

Round X: ... keep rotating around the circle, etc

my @players = qw/Frodo Sam Merry Pippin Strider Gandalf Legolas Gimli/
+;

...
    print "  $players[$p1] vs $players[$p2]\n";
  }
}