print for sort{
substr( $a, 3, 4 ) cmp substr( $b, 3, 4 )
} 'AC-BA91-CA', 'AB-BA92-CA', 'AD-BA90-CC', 'AA-BA93-CA', 'AA-BA89-CB'
+;;
AA-BA89-CB
AD-BA90-CC
AC-BA91-CA
AB-BA92-CA
AA-BA93-CA
[0] Perl>
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.