Danke Dir Hagen, damit bin ich einen großen Schritt weiter.

print join(';', @{$_}), "\n" for sort vergl @zeilen;

sub vergl {
return -1 if $$a[2]<$$b[2];
return 1 if $$a[2]>$$b[2];
return 0;
}

Das macht genau das was ich benötige. Nur verstehe ich das nicht komplett. Die Funktion sort ist mir klar. Aber der Rest nicht so recht.
Daher 2 Fragen:
1.) Würde mir das jemand erklären? Speziell auch dieses $$a[2]... .

2.) Wie sorge ich dafür das die erste Zeile außen vor bleibt? Die erste Zeile soll immer die erste bleiben, unabhängig vom Wert in der Sortierspalte.