use strict;
use warnings;

my @aa = qw/
CORE1
CORE12
CORE8
CORE233
COREA11
COREA12
COREA130
COREA115
/;
# It sort only alphabet. I have to sort alphabet also number.
@aa = sort @aa;
print "@aa\n";
# I want to print CORE1 CORE12 CORE233 CORE8 COREA11 COREA12 COREA115 COREA130