# Aufteilen auf $servercnt Server
my $servercnt = 6;
my @servers;
for my $s (0 .. $servercnt-1) {
    open ($servers[$s], '>', "apo_server" . $s+1 . ".txt") 
        or die "Konnte Datei apo_server" . $s+1 . ".txt nicht zum Schreiben oeffnen: $!";
}
my $act_server = 0;
for my $i (0 .. $anzahl) {
    print $servers[$act_server] $sorted[$i];   # Zeile fuer Server Nr. $act_server+1 ausgeben
    $act_server = ($act_server+1 % $servercnt);   # naechster Server 
}
close $_ for @servers;