Ich habe eine schnelle Google dazu, konnte aber nicht die Antwort, die ich will.

Sprich, es ist ein Array wie folgt aus:
@ A \u003d qw (cd1 A1 EF A2 hij A12 B2 B4 B22);

Ich möchte zu sortieren das Array in der ersten Bestellung:
@ sortiert \u003d qw (A1 A12 A2 B2 B22 B4 cd1 hij EF);

Und zweiter Ordnung:
@ sortiert \u003d qw (A1 A2 A12 B2 B4 B22 cd1 hij EF);

Gibt es eine Möglichkeit, dies zu tun in Perl ohne Verwendung der Module?

Thanks a lot!