Ach, du willst innerhalb einer Gruppe in der subgruppe nochmal filtern?
Das hatte ich nicht wirklich kapiert.

Für nicht wirklich Ahnung von Perl haben ist der Code sogar recht hübsch.

Kleine Anmerkungen noch:
* Variablen muss man nicht in doppelte Anführungszeichen schreiben
* my $gid2 = -1; ist eher C. In Perl ist nicht initialisieren gängiger. Und dann mit "if (not defined $gid2)" abfragen.
* Kann es sein, dass du in Zeile 37 evtl. auf einen nicht initialisierten $server zugreifst oder überseh ich was?
* Zeile 27,28 vertauschen. Wenn du schreibst "wurde", dann auch nachdem er wurde. In einem Fehlerfall führt dich die Meldung sonst nur in die Irre.