perldoc -f sort
der code in sort soll liefern: -1, wenn $a kleiner als $b ist, 0, wenn sie gleich sind und 1, wenn $a grösser ist.
sort { $a eq "c" ? -1 : $b eq "c" ? 1 : $a cmp $b }