#!/usr/bin/perl

@spieler=("max","hans","franz","klaus");

print "Automatischer Spieplan ";

$anzahl=scalar(@spieler);



for ($i = 0;$i < $anzahl;$i++)


{
 print "\n";	
 print "Alle Partien fuer Spieler "."''" .$spieler[$i] ."'' ".": ";
 print "\n";	
           for ($j = 1;$j<$anzahl;$j++)
            {
            
             
              if ($i != $j)
                    {
                        
                   print $spieler[$i] ." gegen ". $spieler[$j] . "\n";
 
                    
                  }
                  
             }       
}