$ perl -E '
    say map "$_->[0]$_->[1] ",
        sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] }
        map [/(\D+)(\d+)/], qw{
            CORE1 CORE12 CORE8 CORE233
            COREA11 COREA12 COREA130 COREA115
        }
'
CORE1 CORE12 CORE233 CORE8 COREA11 COREA115 COREA12 COREA130