#!/usr/bin/perl
use strict;

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

print "Automatischer Spieplan ";

for my $a (@spieler) {
    print "\nAlle Partien fuer Spieler '$a' : \n";
    for my $b (@spieler) {               
        print "$a gegen $b\n" if $a ne $b;
    }       
}