#!/usr/bin/perl
use strict;

my $anzahl = my @spieler = qw( max hans franz klaus);

print "Automatischer Spieplan ";

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