<perl>
get "MannschaftA==* Saison==DFB2004","spiele";
my %summe;
while(get_next("spiele"))
{
# ab hier Torverhaeltnis
if($Erg_A gt $Erg_B)
{
$summe{$MannschaftA}+=$Erg_A;
$summe{$MannschaftB}+=$Erg_B;
$summe{$MannschaftA}-=$Erg_B;
$summe{$MannschaftB}-=$Erg_A;
}
if($Erg_A lt $Erg_B)
{
$summe{$MannschaftA}+=$Erg_A;
$summe{$MannschaftB}+=$Erg_B;
$summe{$MannschaftA}-=$Erg_B;
$summe{$MannschaftB}-=$Erg_A;
}
if($Erg_A eq $Erg_B)
{
$summe{$MannschaftA}+=$Erg_A;
$summe{$MannschaftB}+=$Erg_B;
$summe{$MannschaftA}-=$Erg_B;
$summe{$MannschaftB}-=$Erg_A;
}

if($Erg_A gt $Erg_B)
{
$anzahl{$MannschaftA}++;
$anzahl{$MannschaftA}++;
$anzahl{$MannschaftA}++;
}
if($Erg_B gt $Erg_A)
{
$anzahl{$MannschaftB}++;
$anzahl{$MannschaftB}++;
$anzahl{$MannschaftB}++;
}
if($Ergebnis ne "")
{
if($Erg_A eq $Erg_B)
{
$anzahl{$MannschaftA}++;
$anzahl{$MannschaftB}++;
}
}

# ab hier sortier nach Torverhaeltnis (leider rückwärts)

{
out "$key : $summe{$key}<br>";
}
</perl>