sorting number

dideod.yang has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks. I want to sort below example. I want to print sorting by number but before that, I have to print sorting by alphabet first. Can you help me?

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
[download]

Back to Seekers of Perl Wisdom