my @players = qw/Frodo Sam Merry Pippin Strider Gandalf Legolas Gimli/; ######## my $num = @players; die "must have even number of players" if $num % 2; for my $partner (0 .. $num-2) { print "Round #" . ($partner + 1) . ":\n"; print " $players[-1] vs $players[$partner]\n"; for my $pair (1 .. ($num-2)/2) { my $p1 = ($partner - $pair) % ($num - 1); my $p2 = ($partner + $pair) % ($num - 1); print " $players[$p1] vs $players[$p2]\n"; } }