use strict;

my @array = qw(2aa 2ba 12kf 9cn 9vn 21sg);
my @sorted = sort {$b <=> $a || $b cmp $a } @array;
print $_,$/ foreach @sorted;

##</code><code>##

my @array = qw(2aa 2ba 12kf 9cn 9vn 21sg);
my @sorted = sort {$b <=> $a || $a cmp $b } @array;
print $_,$/ foreach @sorted;