Perhaps you wrote COREA12 and COREA115 around the wrong way.

But then the desired sort order just becomes the default lexi sort:

c:\@Work\Perl\monks>perl -wMstrict -le
"my @sorted =
   sort
   qw(CORE1 CORE12 CORE8 CORE233 COREA11 COREA12 COREA130 COREA115)
   ;
 print qq{@sorted};
"
CORE1 CORE12 CORE233 CORE8 COREA11 COREA115 COREA12 COREA130
[download]