Ik heb gedaan een snelle Google over dit, maar kon het antwoord niet vinden ik wil.

Zeg, is er een array als volgt uit:
@ A \u003d qw (cd1 a1 ef a2 Hij a12 b2 b4 B22);

Ik wil het sorteren van de array in de eerste orde:
@ gesorteerd \u003d qw (a1 a12 a2 b2 B22 b4 ef Hij cd1);

En ten tweede orde:
@ gesorteerd \u003d qw (a1 a2 a12 b2 b4 B22 ef Hij cd1);

Is er een manier om dit te doen in Perl zonder gebruik van modules?

Thanks a lot!