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