sort ermöglicht dir ja, eine eigene routine zum entscheiden der sortierung zu übergeben.
du könntest nun einfach sowas wie
my @nach_geb = sort {
# hier dein split und anschließender vergleich
} @alle_daten;

benutzen. die beiden einträge, die verglichen werden sollen, werden in die spezialvariablen $a und $b gestopft - in deinem fall dann die ganze zeile jeweils. du splittest sie dann und schickst entsprechend 1 oder -1 zurück, je, nachdem, ob $a vor $b stehen soll oder nicht. dummerweise habe ich vergessen, ob 1 nun für $a sprach oder für $b. naja, wirst du sicher herausfinden ;)