#!/usr/bin/perl -w
#   使用三个数组 。第一个数组存参赛的队伍，二存所有的比赛场次，三存随机的比赛场次序列
use strict;

my @arrGame= ();

my @schedule = ();
my @arrplay=qw(A B C D E F);

my $arrsize=@arrplay;

for (my $i=0;$i<$arrsize-1;$i++)
 
  {
     for (my $j=$i;$j<$arrsize-1;$j++)
     {
        my $arrelement=$arrplay[$i]. " VS." . $arrplay[$j+1];
        push (@arrGame,$arrelement);
     }
  }

 my $forarrsize=@arrGame;  #作为循环，使每个都循环一遍，取出数据。
 my $forarrrandom=@arrGame; # 生成随机数
 
 while ($forarrsize>0)
 {
   my $low=0;
   my $high=$forarrrandom;
   my $arrrandom=int(rand($high)+$low);
  
  if ($arrGame[$arrrandom] ne "Done")
  {
     push (@schedule,$arrGame[$arrrandom]);
     $arrGame[$arrrandom]="Done";
     $forarrsize--;
  }
 }
 print "The Schedule is :\n";
 foreach my $t(@schedule)
  {
   print "$t\n";
  }