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>