I've done a quick Google about this, but could not find the answer I want.

Say, there is an array like this:
@A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);

I want to sort the array in the first order:
@sorted = qw(a1 a12 a2 b2 b22 b4 cd1 ef hij);

And second order:
@sorted = qw(a1 a2 a12 b2 b4 b22 cd1 ef hij);

Is there a way to do this in Perl without using modules?

Thanks a lot!