Die Lösung hast du ja schon.

Ich möchte dich aber auch noch darauf hinweisen, dass du "use warnings" benutzten solltest (use strict sowieso).

Dann wäre dir auch noch aufgefallen:
- dass bei my @s; @ps; @hiera=(); das Kommando @ps nutzlos ist
- dass eine Zuweisung $gid = @s[0]; besser als $gid = $s[0]; geschrieben werden sollte (an mehreren Stellen verwendest du ein Array-Slice statt ein Array-Element!)
- und vermutlich noch mehr

Des weiteren: warum deklarierst du das @s nicht jeweils direkt in den for-loops? Das @s in der ersten Loop hat mit dem aus der zweiten ja mal rein gar nichts zu tun, es sollte also eine andere Variable sein (sie darf ruhig denselben Namen haben).